home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0232 / htmlmacs.sam < prev    next >
INI File  |  1997-03-26  |  84KB  |  2,551 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [docvars]
  12.     Destination=d:\docs\html\aim\kr\
  13. [prn]
  14.     PostScript Printer
  15. [port]
  16.     FILE:
  17. [lang]
  18.     2
  19. [fldnames]
  20.     Field1
  21.     Field2
  22.     Field3
  23.     Field4
  24.     Field5
  25.     Field6
  26.     Field7
  27.     Field8
  28. [desc]
  29.     
  30.     
  31.     
  32.     
  33.     
  34.     812913767
  35.     69
  36.     784999827
  37.     959
  38.     28
  39.     0
  40.     0
  41.     0
  42.     0
  43.     
  44.     
  45.     
  46.     
  47.     
  48.     
  49.     1
  50. [fopts]
  51.     0
  52.     1
  53.     0
  54.     0
  55.     
  56.     
  57. [lnopts]
  58.     2
  59.     Body Text
  60.     1
  61. [docopts]
  62.     5
  63.     2
  64. [GramStyle]
  65.     
  66. [tag]
  67.     Body Text
  68.     2
  69.     [fnt]
  70.         Arial MT
  71.         240
  72.         0
  73.         16384
  74.     [algn]
  75.         1
  76.         1
  77.         216
  78.         0
  79.         0
  80.     [spc]
  81.         33
  82.         273
  83.         1
  84.         0
  85.         0
  86.         1
  87.         100
  88.     [brk]
  89.         4
  90.     [line]
  91.         8
  92.         0
  93.         1
  94.         0
  95.         1
  96.         1
  97.         1
  98.         10
  99.         10
  100.         1
  101.     [spec]
  102.         0
  103.         0
  104.         
  105.         0
  106.         1
  107.         1
  108.         0
  109.         16
  110.         0
  111.         0
  112.     [nfmt]
  113.         272
  114.         1
  115.         2
  116.         .
  117.         ,
  118.         </c>
  119.     Body Text
  120.     0
  121.     0
  122. [tag]
  123.     Body Single
  124.     3
  125.     [fnt]
  126.         TimesNewRomanPS
  127.         200
  128.         0
  129.         49152
  130.     [algn]
  131.         1
  132.         1
  133.         0
  134.         0
  135.         0
  136.     [spc]
  137.         33
  138.         273
  139.         1
  140.         0
  141.         0
  142.         1
  143.         100
  144.     [brk]
  145.         4
  146.     [line]
  147.         8
  148.         0
  149.         1
  150.         0
  151.         1
  152.         1
  153.         1
  154.         10
  155.         10
  156.         1
  157.     [spec]
  158.         0
  159.         0
  160.         
  161.         0
  162.         1
  163.         1
  164.         0
  165.         0
  166.         0
  167.         0
  168.     [nfmt]
  169.         272
  170.         1
  171.         2
  172.         .
  173.         ,
  174.         </c>
  175.     Body Single
  176.     0
  177.     0
  178. [tag]
  179.     Function
  180.     4
  181.     [fnt]
  182.         Arial MT
  183.         200
  184.         0
  185.         16385
  186.     [algn]
  187.         1
  188.         1
  189.         0
  190.         0
  191.         0
  192.     [spc]
  193.         33
  194.         244
  195.         1
  196.         0
  197.         0
  198.         1
  199.         100
  200.     [brk]
  201.         68
  202.     [line]
  203.         8
  204.         0
  205.         1
  206.         0
  207.         1
  208.         1
  209.         1
  210.         10
  211.         10
  212.         1
  213.     [spec]
  214.         0
  215.         1
  216.         
  217.         0
  218.         1
  219.         1
  220.         0
  221.         0
  222.         0
  223.         0
  224.     [nfmt]
  225.         272
  226.         1
  227.         2
  228.         .
  229.         ,
  230.         </c>
  231.     Body Text
  232.     0
  233.     0
  234. [lay]
  235.     Standard
  236.     516
  237.     [rght]
  238.         16833
  239.         11908
  240.         1
  241.         1440
  242.         1440
  243.         1
  244.         1656
  245.         1440
  246.         0
  247.         1
  248.         0
  249.         1
  250.         0
  251.         2
  252.         1
  253.         1440
  254.         10465
  255.         12
  256.         1
  257.         720
  258.         1
  259.         1440
  260.         1
  261.         2160
  262.         1
  263.         2880
  264.         1
  265.         3600
  266.         1
  267.         4320
  268.         1
  269.         5040
  270.         1
  271.         5760
  272.         1
  273.         6480
  274.         1
  275.         7200
  276.         1
  277.         7920
  278.         1
  279.         8640
  280.     [hrght]
  281.     [lyfrm]
  282.         1
  283.         11200
  284.         0
  285.         0
  286.         11908
  287.         1656
  288.         0
  289.         1
  290.         3
  291.         1 0 0 0 0 0 0
  292.         0
  293.         0
  294.         1
  295.     [frmlay]
  296.         1656
  297.         11908
  298.         1
  299.         1440
  300.         0
  301.         1
  302.         648
  303.         1440
  304.         0
  305.         1
  306.         0
  307.         1
  308.         1
  309.         0
  310.         1
  311.         1440
  312.         10465
  313.         1
  314.         3
  315.         9360
  316.     [txt]
  317. HTML Macros by Steve Belleguelle November 1994                             Page 
  318. <:P10,0,>
  319.  
  320. Nottingham University, England
  321.  
  322. EMail: sbx@cs.nott.ac.uk
  323.  
  324. >
  325.     [frght]
  326.     [lyfrm]
  327.         1
  328.         13248
  329.         0
  330.         15393
  331.         11908
  332.         16833
  333.         0
  334.         1
  335.         3
  336.         1 0 0 0 0 0 0
  337.         0
  338.         0
  339.         2
  340.     [frmlay]
  341.         16833
  342.         11908
  343.         1
  344.         1440
  345.         792
  346.         1
  347.         15465
  348.         1440
  349.         0
  350.         1
  351.         0
  352.         1
  353.         1
  354.         0
  355.         1
  356.         1440
  357.         10465
  358.         2
  359.         2
  360.         4680
  361.         3
  362.         9360
  363.     [txt]
  364. >
  365. [elay]
  366. [l1]
  367.     0
  368. [pg]
  369.     28
  370.     36 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  371.     93 0 115 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  372.     133 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  373.     188 0 52 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  374.     236 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  375.     293 0 24 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  376.     314 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  377.     369 0 10 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  378.     370 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  379.     426 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  380.     440 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  381.     451 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  382.     485 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  383.     530 58 22 32 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  384.     558 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  385.     615 0 55 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  386.     665 0 41 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  387.     692 0 26 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  388.     748 0 115 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  389.     761 0 5 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  390.     813 0 41 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  391.     869 0 24 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  392.     888 0 29 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  393.     945 0 61 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  394.     978 0 15 512 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  395.     1030 0 54 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  396.     1042 0 36 512 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  397.     1066 0 39 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  398. [edoc]
  399. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when creating a new HTML document
  400.  
  401. <:#240,9025><:f200,2Times New Roman,>
  402.  
  403. <:#240,9025><:f200,2Times New Roman,>FUNCTION CreateHTML()
  404.  
  405. <:#240,9025><:f200,2Times New Roman,>
  406.  
  407. <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
  408.  
  409. <:#240,9025><:f200,2Times New Roman,>Slash=0
  410.  
  411. <:#240,9025><:f200,2Times New Roman,>FOR i=LEN(MacFile) to 1 STEP -1
  412.  
  413. <:#240,9025><:f200,2Times New Roman,>  IF((MID$(MacFile, i, 1) = "\")AND(Slash=0))  Slash=i
  414.  
  415. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  416.  
  417. <:#240,9025><:f200,2Times New Roman,>NEXT
  418.  
  419. <:#240,9025><:f200,2Times New Roman,>IF Slash<<<;>0
  420.  
  421. <:#240,9025><:f200,2Times New Roman,>  Temp=RIGHT$(MacFile, LEN(MacFile)-Slash)
  422.  
  423. <:#240,9025><:f200,2Times New Roman,>  MacFile=Temp
  424.  
  425. <:#240,9025><:f200,2Times New Roman,>ENDIF
  426.  
  427. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!InitHTML"<:f>
  428.  
  429. <:#240,9025><:f200,2Times New Roman,>AssignMacroToFile("{MacFile}!InitHTML", "{MacFile}!CloseHTML", 6)
  430.  
  431. <:#240,9025><:f200,2Times New Roman,>CALLI Macro()
  432.  
  433. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDTITLE")
  434.  
  435. <:#240,9025><:f200,2Times New Roman,> IF box <<<;>1
  436.  
  437. <:#240,9025><:f200,2Times New Roman,> Exit Function
  438.  
  439. <:#240,9025><:f200,2Times New Roman,>ENDIF
  440.  
  441. <:#240,9025><:f200,2Times New Roman,>Title$=GetDialogField$(8000)
  442.  
  443. <:#240,9025><:f200,2Times New Roman,>HeaderFooter(1)
  444.  
  445. <:#240,9025><:f200,2Times New Roman,>Type("<[>Tab]{Title$}")
  446.  
  447. <:#240,9025><:f200,2Times New Roman,>Type("<[>CtrlHome]")
  448.  
  449. <:#240,9025><:f200,2Times New Roman,>
  450.  
  451. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  452.  
  453. <:#240,9025><:f200,2Times New Roman,>
  454.  
  455. <:#240,9025><:f200,2Times New Roman,>DIALOG    ADDTITLE
  456.  
  457. <:#240,9025><:f200,2Times New Roman,>-2134900736    4    78    55    160    90    ""    ""    "Document Title"
  458.  
  459. <:#240,9025><:f200,2Times New Roman,>15    18    127    12    8000    1350631552    "edit"    ""    0 
  460.  
  461. <:#240,9025><:f200,2Times New Roman,>15    8    82    10    1000    1342177280    "static"    "Enter Title of Document:"    0 
  462.  
  463. <:#240,9025><:f200,2Times New Roman,>16    54    40    14    1    1342373889    "button"    "OK"    0 
  464.  
  465. <:#240,9025><:f200,2Times New Roman,>100    55    40    14    2    1342373888    "button"    "Cancel"    0 
  466.  
  467. <:#240,9025><:f200,2Times New Roman,>END DIALOG<:f>
  468.  
  469. <:f200,2Times New Roman,><:p<* >>
  470.  
  471. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when opening an existing HTML document<:f>
  472.  
  473. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************
  474.  
  475. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHTML()
  476.  
  477. <:#240,9025><:f200,2Times New Roman,>
  478.  
  479. <:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount()
  480.  
  481. <:#240,9025><:f200,2Times New Roman,>IF NumGlobs<;>0
  482.  
  483. <:#240,9025><:f200,2Times New Roman,> DIM TempArray(Numglobs)
  484.  
  485. <:#240,9025><:f200,2Times New Roman,> GetGlobalVarNames(&TempArray)
  486.  
  487. <:#240,9025><:f200,2Times New Roman,> Active=0
  488.  
  489. <:#240,9025><:f200,2Times New Roman,> FOR i = 1 to NumGlobs
  490.  
  491. <:#240,9025><:f200,2Times New Roman,>   IF TempArray(i)="HTMLActive" Active=1
  492.  
  493. <:#240,9025><:f200,2Times New Roman,>   ENDIF
  494.  
  495. <:#240,9025><:f200,2Times New Roman,> NEXT
  496.  
  497. <:#240,9025><:f200,2Times New Roman,> IF Active=1   
  498.  
  499. <:#240,9025><:f200,2Times New Roman,>   N=GetGlobalVar$("HTMLDocs")
  500.  
  501. <:#240,9025><:f200,2Times New Roman,>   N=N+1
  502.  
  503. <:#240,9025><:f200,2Times New Roman,>   SetGlobalVar("HTMLDocs", N)
  504.  
  505. <:#240,9025><:f200,2Times New Roman,>   EXIT FUNCTION
  506.  
  507. <:#240,9025><:f200,2Times New Roman,> ENDIF
  508.  
  509. <:#240,9025><:f200,2Times New Roman,>ENDIF
  510.  
  511. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDir",1)<:f>
  512.  
  513. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLActive", 1)
  514.  
  515. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("HTMLDocs", 1)
  516.  
  517. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDocs", 1)
  518.  
  519. <:#240,9025><:f200,2Times New Roman,>CALL InitHREFTable()
  520.  
  521. <:#240,9025><:f200,2Times New Roman,>CALL InitImageTable()<:f>
  522.  
  523. <:#240,9025><:f200,2Times New Roman,>CALL InitHotKeys()
  524.  
  525. <:#240,9025><:f200,2Times New Roman,>CALL InitMenus()
  526.  
  527. <:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", "HTMLDir", "AMIPRO.INI")<:f>
  528.  
  529. <:#240,9025><:f200,2Times New Roman,>IF TEMP$="" 
  530.  
  531. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetDocPath$()
  532.  
  533. <:#240,9025><:f200,2Times New Roman,>ENDIF
  534.  
  535. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLDir",TEMP$)
  536.  
  537. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ConvertDialog")<:f>
  538.  
  539. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("HTMLNetScape")
  540.  
  541. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>BRClear")<:f>
  542.  
  543. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRThick")<:f>
  544.  
  545. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRAlign")<:f>
  546.  
  547. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRWidth")<:f>
  548.  
  549. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>HRShade")<:f>
  550.  
  551. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>AuthNoComma")<:f>
  552.  
  553. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("<:f><:f200,2Times New Roman,>AuthNoRule")<:f>
  554.  
  555. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgHSPACE")
  556.  
  557. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgVSPACE")<:f>
  558.  
  559. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgWIDTH")
  560.  
  561. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgHEIGHT")<:f>
  562.  
  563. <:#240,9025><:f200,2Times New Roman,>CALL AddVariable("ImgBORDER")
  564.  
  565. <:#240,9025><:f200,2Times New Roman,>
  566.  
  567. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  568.  
  569. <:#240,9025><:f200,2Times New Roman,>
  570.  
  571. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddVariable(Name)
  572.  
  573. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar(Name,1)
  574.  
  575. <:#240,9025><:f200,2Times New Roman,>TEMP$= GetProfileString$("HTML", Name, "AMIPRO.INI")<:f>
  576.  
  577. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar(Name,TEMP$)<:f>
  578.  
  579. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  580.  
  581. <:#240,9025><:f200,2Times New Roman,>
  582.  
  583. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  584.  
  585. <:#240,9025><:f200,2Times New Roman,>
  586.  
  587. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHREFTable()
  588.  
  589. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastURLs",10)
  590.  
  591. <:#240,9025><:f200,2Times New Roman,>I= 1 
  592.  
  593. <:#240,9025><:f200,2Times New Roman,>Continue=1
  594.  
  595. <:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1)
  596.  
  597. <:#240,9025><:f200,2Times New Roman,>  Name$="URL{I}"
  598.  
  599. <:#240,9025><:f200,2Times New Roman,>  URL= GetProfileString$("HTML", Name$, "AMIPRO.INI")
  600.  
  601. <:#240,9025><:f200,2Times New Roman,>  IF URL="" SetGlobalArray("PastURLs",I,"")
  602.  
  603. <:#240,9025><:f200,2Times New Roman,>  ELSE SetGlobalArray("PastURLs",I,URL)
  604.  
  605. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  606.  
  607. <:#240,9025><:f200,2Times New Roman,>  I=I+1
  608.  
  609. <:#240,9025><:f200,2Times New Roman,>  IF I<;>10 Continue=0
  610.  
  611. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  612.  
  613. <:#240,9025><:f200,2Times New Roman,>WEND
  614.  
  615. <:#240,9025><:f200,2Times New Roman,> 
  616.  
  617. <:#240,9025><:f200,2Times New Roman,>end function<:f>
  618.  
  619. <:#240,9025><:f200,2Times New Roman,>
  620.  
  621. <:#240,9025><:f200,2Times New Roman,>
  622.  
  623. <:#240,9025><:f200,2Times New Roman,>
  624.  
  625. <:#240,9025><:f200,2Times New Roman,>
  626.  
  627. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  628.  
  629. <:#240,9025><:f200,2Times New Roman,>
  630.  
  631. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitImageTable()
  632.  
  633. <:#240,9025><:f200,2Times New Roman,>AllocGlobalVar("PastImages",10)
  634.  
  635. <:#240,9025><:f200,2Times New Roman,>I= 1 
  636.  
  637. <:#240,9025><:f200,2Times New Roman,>Continue=1
  638.  
  639. <:#240,9025><:f200,2Times New Roman,>WHILE (Continue=1)
  640.  
  641. <:#240,9025><:f200,2Times New Roman,>  Name$="IMAGE{I}"
  642.  
  643. <:#240,9025><:f200,2Times New Roman,>  URL= GetProfileString$("HTML", Name$, "AMIPRO.INI")
  644.  
  645. <:#240,9025><:f200,2Times New Roman,>  IF URL="" SetGlobalArray("PastImages",I,"")
  646.  
  647. <:#240,9025><:f200,2Times New Roman,>  ELSE SetGlobalArray("PastImages",I,URL)
  648.  
  649. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  650.  
  651. <:#240,9025><:f200,2Times New Roman,>  I=I+1
  652.  
  653. <:#240,9025><:f200,2Times New Roman,>  IF I<;>10 Continue=0
  654.  
  655. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  656.  
  657. <:#240,9025><:f200,2Times New Roman,>WEND
  658.  
  659. <:#240,9025><:f200,2Times New Roman,> 
  660.  
  661. <:#240,9025><:f200,2Times New Roman,>end function<:f>
  662.  
  663. <:f200,2Times New Roman,><:p<* >>
  664.  
  665. <:#240,9025><:f200,2Times New Roman,255,0,0>'Functions to set up Hotkeys and menus<:f>
  666.  
  667. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  668.  
  669. <:#240,9025><:f200,2Times New Roman,>
  670.  
  671. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitHotKeys()
  672.  
  673. <:#240,9025><:f200,2Times New Roman,>
  674.  
  675. <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
  676.  
  677. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f>
  678.  
  679. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifth], "", Macro)
  680.  
  681. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f>
  682.  
  683. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftn], "", Macro)
  684.  
  685. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f>
  686.  
  687. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifti], "", Macro)
  688.  
  689. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f>
  690.  
  691. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f>
  692.  
  693. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f>
  694.  
  695. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftr], "", Macro)<:f>
  696.  
  697. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f>
  698.  
  699. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftb], "", Macro)<:f>
  700.  
  701. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f>
  702.  
  703. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshiftc], "", Macro)<:f>
  704.  
  705. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f>
  706.  
  707. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifta], "", Macro)<:f>
  708.  
  709. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options"<:f>
  710.  
  711. <:#240,9025><:f200,2Times New Roman,>OnKey(<[>ctrlshifto], "", Macro)<:f>
  712.  
  713. <:#240,9025><:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f>
  714.  
  715. <:#240,9025><:f200,2Times New Roman,>'OnKey(<[>ctrlshiftt], "", Macro)<:f>
  716.  
  717. <:f200,2Times New Roman,><:f><:f200,2Times New Roman,><:f200,2Times New Roman,>Macro="{MacFile}!BackGround"<:f>
  718.  
  719. <:f200,2Times New Roman,>OnKey(<[>F12], "", Macro)<:f>
  720.  
  721. <:f200,2Times New Roman,>
  722.  
  723. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  724.  
  725. <:#240,9025><:f200,2Times New Roman,>
  726.  
  727. <:#240,9025><:f200,2Times New Roman,>
  728.  
  729. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  730.  
  731. <:#240,9025><:f200,2Times New Roman,>
  732.  
  733. <:#240,9025><:f200,2Times New Roman,>FUNCTION InitMenus()
  734.  
  735. <:#240,9025><:f200,2Times New Roman,>
  736.  
  737. <:#240,9025><:f200,2Times New Roman,>MacFile=GetRunningMacroFile$()
  738.  
  739. <:#240,9025><:f200,2Times New Roman,>InsertMenu(1, 3, "HTM&L")
  740.  
  741. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Elements")<:f>
  742.  
  743. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ParaStyle"<:f>
  744.  
  745. <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Paragraph Style<:f><:f200,2Times New Roman,>", Macro, "Select Paragraph Style")<:f>
  746.  
  747. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Styles")<:f>
  748.  
  749. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenu(1, "HTM&L", "Text Effects")<:f>
  750.  
  751. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!BackGround"<:f>
  752.  
  753. <:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Background etc.<:f><:f200,2Times New Roman,>    F12", Macro, "Set Background Image and colours<:f><:f200,2Times New Roman,>")<:f>
  754.  
  755. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!ConvertFile"<:f>
  756.  
  757. <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Convert File    ^ + SHIFT C<:f><:f200,2Times New Roman,>", Macro, "Convert file<:f><:f200,2Times New Roman,> to HTML<:f><:f200,2Times New Roman,>")<:f>
  758.  
  759. <:#240,9025><:f200,2Times New Roman,>'Macro="{MacFile}!TestDoc"<:f>
  760.  
  761. <:#240,9025><:f200,2Times New Roman,>'AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Test File 
  762.         ^ + SHIFT T<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Test HTML file with browser<:f><:f200,2Times New Roman,>")<:f>
  763.  
  764. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Options<:f><:f200,2Times New Roman,>"<:f>
  765.  
  766. <:#240,9025><:f200,2Times New Roman,>AddMenuItem(1, "HTM&L", "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,>    ^ + SHIFT O<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Set Options<:f><:f200,2Times New Roman,>")<:f>
  767.  
  768. <:#240,9025><:f200,2Times New Roman,>
  769.  
  770. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddHREF"<:f>
  771.  
  772. <:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Elements", "Add HREF Anchor     ^ + SHIFT H", Macro, "Add HREF Anchor")
  773.  
  774. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddName"<:f>
  775.  
  776. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  777. <:f><:f200,2Times New Roman,> "Add NAME Anchor<:f><:f200,2Times New Roman,>    ^ + SHIFT N<:f><:f200,2Times New Roman,>", Macro, "Add NAME Anchor")
  778.  
  779. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddImage"<:f>
  780.  
  781. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  782. <:f><:f200,2Times New Roman,> "Add IMAGE    <:f><:f200,2Times New Roman,>^ + SHIFT I<:f><:f200,2Times New Roman,>", Macro, "Add IMAGE")
  783.  
  784. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAddress"<:f>
  785.  
  786. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  787. <:f><:f200,2Times New Roman,> "Add ADDRESS    <:f><:f200,2Times New Roman,>^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "Add Address")
  788.  
  789. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddRule"<:f>
  790.  
  791. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  792. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add RULE 
  793. <:f><:f200,2Times New Roman,>    ^ + SHIFT R<:f><:f200,2Times New Roman,>", Macro, "Add Horizontal Rule")<:f>
  794.  
  795. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddBreak"<:f>
  796.  
  797. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  798. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add BREAK 
  799. <:f><:f200,2Times New Roman,>    ^ + SHIFT B<:f><:f200,2Times New Roman,>", Macro, "Add Line Break")<:f>
  800.  
  801. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddNOBR"<:f>
  802.  
  803. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  804. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add NOBR  
  805. <:f><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>", Macro, "Add No Break Tag")<:f>
  806.  
  807. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddWBR"<:f>
  808.  
  809. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  810. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add WBR  
  811. <:f><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>", Macro, "Add Word Break Tag")<:f>
  812.  
  813. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddAuthor"<:f>
  814.  
  815. <:#480,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  816. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Author    ^ + SHIFT A<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Author to text<:f><:f200,2Times New Roman,>")<:f>
  817.  
  818. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddComment"<:f>
  819.  
  820. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  821. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Comment<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Comment/Note to text<:f><:f200,2Times New Roman,>")<:f>
  822.  
  823. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!AddDateTime"<:f>
  824.  
  825. <:#240,9025><:f200,2Times New Roman,>Add<:f><:f200,2Times New Roman,>Cascade<:f><:f200,2Times New Roman,>MenuItem(1, "HTM&L",<:f><:f200,2Times New Roman,> "Elements", 
  826. <:f><:f200,2Times New Roman,> "<:f><:f200,2Times New Roman,>Add Date/Time<:f><:f200,2Times New Roman,>", Macro, "<:f><:f200,2Times New Roman,>Add Date/Time to text<:f><:f200,2Times New Roman,>")<:f>
  827.  
  828. <:#240,9025><:f200,2Times New Roman,>
  829.  
  830. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(EM)"<:f>
  831.  
  832. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Emphasis<:f><:f200,2Times New Roman,>", Macro, "Emphasis text style")<:f>
  833.  
  834. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(STRONG)"<:f>
  835.  
  836. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Strong<:f><:f200,2Times New Roman,>", Macro, "Strong text style")<:f>
  837.  
  838. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CODE)"<:f>
  839.  
  840. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Code<:f><:f200,2Times New Roman,>", Macro, "Code listings style")<:f>
  841.  
  842. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(SAMP)"<:f>
  843.  
  844. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>Sample<:f><:f200,2Times New Roman,>", Macro, "Sample text style")<:f>
  845.  
  846. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(KBD)"<:f>
  847.  
  848. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>KBD<:f><:f200,2Times New Roman,>", Macro, "Text typed by user")<:f>
  849.  
  850. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(VAR)"<:f>
  851.  
  852. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>VAR<:f><:f200,2Times New Roman,>", Macro, "A variable name")<:f>
  853.  
  854. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(DFN)"<:f>
  855.  
  856. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>DFN<:f><:f200,2Times New Roman,>", Macro, "The defining instance of a term")<:f>
  857.  
  858. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextStyle(CITE)"<:f>
  859.  
  860. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Styles", "<:f><:f200,2Times New Roman,>CITE<:f><:f200,2Times New Roman,>", Macro, "A citation")<:f>
  861.  
  862. <:#240,9025><:f200,2Times New Roman,>
  863.  
  864. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""BOLD"")"<:f>
  865.  
  866. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>BOLD<:f><:f200,2Times New Roman,>", Macro, "Bold text")<:f>
  867.  
  868. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects(""ITALIC"")"<:f>
  869.  
  870. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text <:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>", "<:f><:f200,2Times New Roman,>ITALIC<:f><:f200,2Times New Roman,>", Macro, "Italic text")<:f>
  871.  
  872. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!Text<:f><:f200,2Times New Roman,>Effects<:f><:f200,2Times New Roman,>(""PITCH"")"<:f>
  873.  
  874. <:#480,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>Toggle Pitch 
  875. <:f><:f200,2Times New Roman,>", Macro, "Toggle between fixed and variable pitch")<:f>
  876.  
  877. <:#240,9025><:f200,2Times New Roman,>Macro="{MacFile}!TextEffects<:f><:f200,2Times New Roman,>(""BLINK"")"<:f>
  878.  
  879. <:#240,9025><:f200,2Times New Roman,>AddCascadeMenuItem(1, "HTM&L", "Text Effects", "<:f><:f200,2Times New Roman,>BLINK<:f><:f200,2Times New Roman,>", Macro, "Blinking text")<:f>
  880.  
  881. <:#240,9025><:f200,2Times New Roman,>
  882.  
  883. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  884.  
  885. <:f200,2Times New Roman,><:p<* >>
  886.  
  887. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function called when closing an HTML document<:f>
  888.  
  889. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  890.  
  891. <:#240,9025><:f200,2Times New Roman,>
  892.  
  893. <:#240,9025><:f200,2Times New Roman,>Function CloseHTML()
  894.  
  895. <:#240,9025><:f200,2Times New Roman,>
  896.  
  897. <:#240,9025><:f200,2Times New Roman,>NumGlobs = GetGlobalVarCount()
  898.  
  899. <:#240,9025><:f200,2Times New Roman,>IF NumGlobs=0 EXIT FUNCTION
  900.  
  901. <:#240,9025><:f200,2Times New Roman,>ENDIF
  902.  
  903. <:#240,9025><:f200,2Times New Roman,>DIM TempArray(Numglobs)
  904.  
  905. <:#240,9025><:f200,2Times New Roman,>GetGlobalVarNames(&TempArray)
  906.  
  907. <:#240,9025><:f200,2Times New Roman,>Active=0
  908.  
  909. <:#240,9025><:f200,2Times New Roman,>FOR i = 1 to NumGlobs
  910.  
  911. <:#240,9025><:f200,2Times New Roman,>   IF TempArray(i)="HTMLActive" Active=1
  912.  
  913. <:#240,9025><:f200,2Times New Roman,>   ENDIF
  914.  
  915. <:#240,9025><:f200,2Times New Roman,>NEXT
  916.  
  917. <:#240,9025><:f200,2Times New Roman,>IF Active=1
  918.  
  919. <:#240,9025><:f200,2Times New Roman,>  N=GetGlobalVar$("HTMLDocs")
  920.  
  921. <:#240,9025><:f200,2Times New Roman,>  IF N<;>1 
  922.  
  923. <:#240,9025><:f200,2Times New Roman,>    N=N - 1
  924.  
  925. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("HTMLDocs", N)
  926.  
  927. <:#240,9025><:f200,2Times New Roman,>    EXIT FUNCTION
  928.  
  929. <:#240,9025><:f200,2Times New Roman,>  ENDIF
  930.  
  931. <:#240,9025><:f200,2Times New Roman,>  CALL WriteHREF()<:f>
  932.  
  933. <:#240,9025><:f200,2Times New Roman,>  CALL WriteIMAGES()<:f>
  934.  
  935. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetGlobalVar$("HTMLDir")
  936.  
  937. <:#240,9025><:f200,2Times New Roman,>  <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLDir" ,TEMP$, "AMIPRO.INI")<:f>
  938.  
  939. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetGlobalVar$("HTMLNetScape")
  940.  
  941. <:#240,9025><:f200,2Times New Roman,>  <:f><:f200,2Times New Roman,>WriteProfileString("HTML", "HTMLNetScape" ,TEMP$, "AMIPRO.INI")<:f>
  942.  
  943. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("HTMLDocs")
  944.  
  945. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("HTMLActive")
  946.  
  947. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("PastURLs")<:f>
  948.  
  949. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("PastImages")<:f>
  950.  
  951. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar("HTMLDir")
  952.  
  953. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("HTMLNetScape")
  954.  
  955. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>ConvertDialog")<:f>
  956.  
  957. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>BRClear")<:f>
  958.  
  959. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRThick")<:f>
  960.  
  961. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRAlign")<:f>
  962.  
  963. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRWidth")<:f>
  964.  
  965. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("<:f><:f200,2Times New Roman,>HRShade")<:f>
  966.  
  967. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("<:f><:f200,2Times New Roman,>AuthNoComma")<:f>
  968.  
  969. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("<:f><:f200,2Times New Roman,>AuthNoRule")<:f>
  970.  
  971. <:#240,9025><:f200,2Times New Roman,>  CALL DelVariable("ImgHSPACE")
  972.  
  973. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgVSPACE")<:f>
  974.  
  975. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgWIDTH")
  976.  
  977. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgHEIGHT")<:f>
  978.  
  979. <:#240,9025><:f200,2Times New Roman,>  CALL <:f><:f200,2Times New Roman,>Del<:f><:f200,2Times New Roman,>Variable("ImgBORDER")<:f>
  980.  
  981. <:#240,9025><:f200,2Times New Roman,>  DeleteMenu(1, "HTM&L") 
  982.  
  983. <:#240,9025><:f200,2Times New Roman,>ENDIF
  984.  
  985. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  986.  
  987. <:#240,9025><:f200,2Times New Roman,>
  988.  
  989. <:#240,9025><:f200,2Times New Roman,>FUNCTION DelVariable(Name)
  990.  
  991. <:#240,9025><:f200,2Times New Roman,>  TEMP$=GetGlobalVar$(Name)
  992.  
  993. <:#240,9025><:f200,2Times New Roman,>  <:f><:f200,2Times New Roman,>WriteProfileString("HTML", Name ,TEMP$, "AMIPRO.INI")<:f>
  994.  
  995. <:#240,9025><:f200,2Times New Roman,>  FreeGlobalVar(Name)<:f>
  996.  
  997. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  998.  
  999. <:#240,9025><:f200,2Times New Roman,>
  1000.  
  1001. <:#240,9025><:f200,2Times New Roman,>
  1002.  
  1003. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1004.  
  1005. <:#240,9025><:f200,2Times New Roman,>
  1006.  
  1007. <:#240,9025><:f200,2Times New Roman,>Function WriteHREF()
  1008.  
  1009. <:#240,9025><:f200,2Times New Roman,>
  1010.  
  1011. <:#240,9025><:f200,2Times New Roman,>for I=1 To 10 
  1012.  
  1013. <:#240,9025><:f200,2Times New Roman,>  URL$=GetGlobalArray$("PastURLs", I)
  1014.  
  1015. <:#240,9025><:f200,2Times New Roman,>  WriteProfileString("HTML", "URL{I}" ,URL$, "AMIPRO.INI")
  1016.  
  1017. <:#240,9025><:f200,2Times New Roman,>Next
  1018.  
  1019. <:#240,9025><:f200,2Times New Roman,>End Function
  1020.  
  1021. <:#240,9025><:f200,2Times New Roman,>
  1022.  
  1023. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1024.  
  1025. <:#240,9025><:f200,2Times New Roman,>
  1026.  
  1027. <:#240,9025><:f200,2Times New Roman,>Function WriteIMAGES()
  1028.  
  1029. <:#240,9025><:f200,2Times New Roman,>
  1030.  
  1031. <:#240,9025><:f200,2Times New Roman,>for I=1 To 10 
  1032.  
  1033. <:#240,9025><:f200,2Times New Roman,>  IMAGE$=GetGlobalArray$("PastImages", I)
  1034.  
  1035. <:#240,9025><:f200,2Times New Roman,>  WriteProfileString("HTML", "IMAGE{I}" ,IMAGE$, "AMIPRO.INI")
  1036.  
  1037. <:#240,9025><:f200,2Times New Roman,>Next
  1038.  
  1039. <:#240,9025><:f200,2Times New Roman,>End Function<:f>
  1040.  
  1041. <:f200,2Times New Roman,><:p<* >>
  1042.  
  1043. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a HREF anchor<:f>
  1044.  
  1045. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1046.  
  1047. <:#240,9025><:f200,2Times New Roman,>
  1048.  
  1049. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddHREF()
  1050.  
  1051. <:#240,9025><:f200,2Times New Roman,>DIM Previous(10)
  1052.  
  1053. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1054.  
  1055. <:#240,9025><:f200,2Times New Roman,>
  1056.  
  1057. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  1058.  
  1059. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10
  1060.  
  1061. <:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastURLs",I)
  1062.  
  1063. <:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>""  FillEdit(9000, Previous(I))
  1064.  
  1065. <:#240,9025><:f200,2Times New Roman,> endif
  1066.  
  1067. <:#240,9025><:f200,2Times New Roman,>next 
  1068.  
  1069. <:#240,9025><:f200,2Times New Roman,>FillEdit(8000,Previous(1))
  1070.  
  1071. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDHREF")
  1072.  
  1073. <:#240,9025><:f200,2Times New Roman,> if box <<<;>1
  1074.  
  1075. <:#240,9025><:f200,2Times New Roman,> Exit Function
  1076.  
  1077. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1078.  
  1079. <:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
  1080.  
  1081. <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  1082.  
  1083. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1084.  
  1085. <:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000)
  1086.  
  1087. <:#240,9025><:f200,2Times New Roman,>Field="<<A HREF=""{URL$}""<;>"
  1088.  
  1089. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1090.  
  1091. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  1092.  
  1093. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  1094.  
  1095. <:#240,9025><:f200,2Times New Roman,>Type(Text)
  1096.  
  1097. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1098.  
  1099. <:#240,9025><:f200,2Times New Roman,>Type("<</A<;>")
  1100.  
  1101. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  1102.  
  1103. <:#240,9025><:f200,2Times New Roman,>
  1104.  
  1105. <:#240,9025><:f200,2Times New Roman,>Match=0
  1106.  
  1107. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10
  1108.  
  1109. <:#240,9025><:f200,2Times New Roman,>  if Previous(I)=URL$  Match=1
  1110.  
  1111. <:#240,9025><:f200,2Times New Roman,>  endif
  1112.  
  1113. <:#240,9025><:f200,2Times New Roman,>next
  1114.  
  1115. <:#240,9025><:f200,2Times New Roman,>if Match=0
  1116.  
  1117. <:#240,9025><:f200,2Times New Roman,>  for I=10 to 2 step -1
  1118.  
  1119. <:#240,9025><:f200,2Times New Roman,>    N=I - 1
  1120.  
  1121. <:#240,9025><:f200,2Times New Roman,>    SetGlobalArray("PastURLs", I, Previous(N))
  1122.  
  1123. <:#240,9025><:f200,2Times New Roman,>  next
  1124.  
  1125. <:#240,9025><:f200,2Times New Roman,>  SetGlobalArray("PastURLs", 1,  URL$)
  1126.  
  1127. <:#240,9025><:f200,2Times New Roman,>endif
  1128.  
  1129. <:#240,9025><:f200,2Times New Roman,>  
  1130.  
  1131. <:#240,9025><:f200,2Times New Roman,>
  1132.  
  1133. <:#240,9025><:f200,2Times New Roman,>end function
  1134.  
  1135. <:#240,9025><:f200,2Times New Roman,>
  1136.  
  1137. <:#293,9025>DIALOG    ADDHREF
  1138.  
  1139. <:#293,9025>-2134900736    5    46    60    212    162    ""    ""    "AddHREF"
  1140.  
  1141. <:#293,9025>21    10    40    10    1000    1342177280    "static"    "Enter URL:"    0 
  1142.  
  1143. <:#293,9025>50    134    40    14    1    1342373889    "button"    "OK"    0 
  1144.  
  1145. <:#293,9025>114    134    40    14    2    1342373888    "button"    "Cancel"    0 
  1146.  
  1147. <:#293,9025>22    22    170    12    8000    1350631552    "edit"    ""    0 
  1148.  
  1149. <:#293,9025>22    44    170    78    9000    1352728577    "listbox"    ""    0 
  1150.  
  1151. <:#293,9025>END DIALOG
  1152.  
  1153. <:f200,2Times New Roman,><:p<* >>
  1154.  
  1155. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add your Name and Email<:f>
  1156.  
  1157. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1158.  
  1159. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddAuthor()
  1160.  
  1161. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;<:f>
  1162.  
  1163. <:#240,9025><:f200,2Times New Roman,>
  1164.  
  1165. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
  1166.  
  1167. <:#240,9025><:f200,2Times New Roman,>UserName=Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserName","AMIPRO.INI")
  1168.  
  1169. <:#240,9025><:f200,2Times New Roman,>FillEdit(8000,UserName)
  1170.  
  1171. <:#240,9025><:f200,2Times New Roman,>UserEmail=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserEmail","AMIPRO.INI")<:f>
  1172.  
  1173. <:#240,9025><:f200,2Times New Roman,>FillEdit(8001,UserEmail)<:f>
  1174.  
  1175. <:#240,9025><:f200,2Times New Roman,>UserHome=<:f><:f200,2Times New Roman,>Get<:f><:f200,2Times New Roman,>ProfileString$("HTML","UserHome","AMIPRO.INI")<:f>
  1176.  
  1177. <:#240,9025><:f200,2Times New Roman,>FillEdit(8002,UserHome)<:f>
  1178.  
  1179. <:#240,9025><:f200,2Times New Roman,>NoComma=GetGlobalVar$("AuthNoComma")
  1180.  
  1181. <:#240,9025><:f200,2Times New Roman,>FillEdit(20,NoComma)<:f>
  1182.  
  1183. <:#240,9025><:f200,2Times New Roman,>NoRule=GetGlobalVar$("AuthNoRule")
  1184.  
  1185. <:#240,9025><:f200,2Times New Roman,>FillEdit(21,NoRule)<:f>
  1186.  
  1187. <:#240,9025><:f200,2Times New Roman,>
  1188.  
  1189. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDAUTHOR")
  1190.  
  1191. <:#240,9025><:f200,2Times New Roman,>IF box <<<;>1
  1192.  
  1193. <:#240,9025><:f200,2Times New Roman,> Exit Function
  1194.  
  1195. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1196.  
  1197. <:#240,9025><:f200,2Times New Roman,>
  1198.  
  1199. <:#240,9025><:f200,2Times New Roman,>UserName=GetDialogField$(8000)<:f>
  1200.  
  1201. <:#240,9025><:f200,2Times New Roman,>UserEmail=GetDialogField$(8001)<:f>
  1202.  
  1203. <:#240,9025><:f200,2Times New Roman,>UserHome=GetDialogField$(8002)<:f>
  1204.  
  1205. <:#240,9025><:f200,2Times New Roman,>NoRule=GetDialogField$(21)<:f>
  1206.  
  1207. <:#240,9025><:f200,2Times New Roman,>NoComma=GetDialogField$(20)<:f>
  1208.  
  1209. <:#240,9025><:f200,2Times New Roman,>IF NoRule=0
  1210.  
  1211. <:#240,9025><:f200,2Times New Roman,>    Field="<:f><:f200,2Times New Roman,><<HR<;><[>Enter]<:f><:f200,2Times New Roman,>"
  1212.  
  1213. <:#240,9025><:f200,2Times New Roman,>ELSE
  1214.  
  1215. <:#240,9025><:f200,2Times New Roman,>    Field=""<:f>
  1216.  
  1217. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1218.  
  1219. <:#240,9025><:f200,2Times New Roman,>Field="<:f><:f200,2Times New Roman,>{Field}<<A HREF=""{UserHome}""<;>"
  1220.  
  1221. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1222.  
  1223. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  1224.  
  1225. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  1226.  
  1227. <:#240,9025><:f200,2Times New Roman,>Type(UserName)
  1228.  
  1229. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1230.  
  1231. <:#240,9025><:f200,2Times New Roman,>IF NoComma=0
  1232.  
  1233. <:#240,9025><:f200,2Times New Roman,>    ComStr="<:f><:f200,2Times New Roman,>,<:f><:f200,2Times New Roman,>"
  1234.  
  1235. <:#240,9025><:f200,2Times New Roman,>ELSE
  1236.  
  1237. <:#240,9025><:f200,2Times New Roman,>    ComStr=""<:f>
  1238.  
  1239. <:#240,9025><:f200,2Times New Roman,>ENDIF<:f>
  1240.  
  1241. <:#240,9025><:f200,2Times New Roman,>Type("<:f><:f200,2Times New Roman,><</A<;>{ComStr}<<ADDRESS<;>")
  1242.  
  1243. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  1244.  
  1245. <:#240,9025><:f200,2Times New Roman,>Type(UserEmail)
  1246.  
  1247. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1248.  
  1249. <:#240,9025><:f200,2Times New Roman,>Type("<</ADDRESS<;>")<:f>
  1250.  
  1251. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  1252.  
  1253. <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserName","{UserName}","AMIPRO.INI")<:f>
  1254.  
  1255. <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserEmail","{UserEmail}","AMIPRO.INI")<:f>
  1256.  
  1257. <:#240,9025><:f200,2Times New Roman,>WriteProfileString("HTML","UserHome","{UserHome}","AMIPRO.INI")<:f>
  1258.  
  1259. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("AuthNoComma",NoComma)<:f>
  1260.  
  1261. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("AuthNoRule",NoRule)<:f>
  1262.  
  1263. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  1264.  
  1265. <:#293,9025>
  1266.  
  1267. <:#293,9025>DIALOG    ADDAUTHOR
  1268.  
  1269. <:#293,9025>-2134376448    10    76    56    212    126    ""    ""    "Add Author"
  1270.  
  1271. <:#293,9025>53    7    148    12    8000    1350631552    "edit"    ""    0 
  1272.  
  1273. <:#293,9025>9    8    40    10    1000    1342177280    "static"    "Your Name:"    0 
  1274.  
  1275. <:#293,9025>53    27    148    12    8001    1350631552    "edit"    ""    0 
  1276.  
  1277. <:#586,9025>10    24    40    18    1001    1342177280    "static"    "Your e-mail address:"    0 
  1278.  
  1279. <:#293,9025>53    48    148    12    8002    1350631552    "edit"    ""    0 
  1280.  
  1281. <:#586,9025>10    45    40    17    1002    1342177280    "static"    "Your home page URL:"    0 
  1282.  
  1283. <:#293,9025>56    96    40    14    1    1342373889    "button"    "OK"    0 
  1284.  
  1285. <:#293,9025>120    96    40    14    3    1342373888    "button"    "Cancel"    0 
  1286.  
  1287. <:#293,9025>118    72    76    12    20    1342242819    "button"    "Suppress comma"    0 
  1288.  
  1289. <:#293,9025>26    72    70    12    21    1342242819    "button"    "Suppress <<HR<;>"    0 
  1290.  
  1291. <:#293,9025>END DIALOG
  1292.  
  1293. <:f200,2Times New Roman,><:p<* >><:f><:f200,2Times New Roman,255,0,0>'Function to add a Comment<:f>
  1294.  
  1295. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1296.  
  1297. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddComment()<:f><-">
  1298.  
  1299. <:#240,9025><:f200,2Times New Roman,>Insert<:f><:f200,2Times New Roman,>Note("")
  1300.  
  1301. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1302.  
  1303. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1304.  
  1305. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add Time/Date<:f>
  1306.  
  1307. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1308.  
  1309. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddDateTime()<:f><-">
  1310.  
  1311. <:#240,9025><:f200,2Times New Roman,>Insert<:f><:f200,2Times New Roman,>Variable
  1312.  
  1313. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  1314.  
  1315. <:p<* >>
  1316.  
  1317. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a NAME anchor<:f>
  1318.  
  1319. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1320.  
  1321. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddName()
  1322.  
  1323. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1324.  
  1325. <:#240,9025><:f200,2Times New Roman,>
  1326.  
  1327. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  1328.  
  1329. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "ADDNAME")
  1330.  
  1331. <:#240,9025><:f200,2Times New Roman,>IF box <<<;>1
  1332.  
  1333. <:#240,9025><:f200,2Times New Roman,> Exit Function
  1334.  
  1335. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1336.  
  1337. <:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
  1338.  
  1339. <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  1340.  
  1341. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1342.  
  1343. <:#240,9025><:f200,2Times New Roman,>Name$=GetDialogField$(8000)
  1344.  
  1345. <:#240,9025><:f200,2Times New Roman,>Field="<<A NAME=""{Name$}""<;>"
  1346.  
  1347. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1348.  
  1349. <:#240,9025><:f200,2Times New Roman,>'FieldAdd(Field)
  1350.  
  1351. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  1352.  
  1353. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  1354.  
  1355. <:#240,9025><:f200,2Times New Roman,>Type(Text)
  1356.  
  1357. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1358.  
  1359. <:#240,9025><:f200,2Times New Roman,>Type("<</A<;>")
  1360.  
  1361. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  1362.  
  1363. <:#240,9025><:f200,2Times New Roman,>
  1364.  
  1365. <:#240,9025><:f200,2Times New Roman,>end function
  1366.  
  1367. <:#240,9025><:f200,2Times New Roman,>
  1368.  
  1369. <:#240,9025><:f200,2Times New Roman,>DIALOG    ADDNAME
  1370.  
  1371. <:#240,9025><:f200,2Times New Roman,>-2134900736    4    91    54    160    90    ""    ""    "Add Name"
  1372.  
  1373. <:#240,9025><:f200,2Times New Roman,>34    17    92    12    8000    1350631552    "edit"    ""    0 
  1374.  
  1375. <:#240,9025><:f200,2Times New Roman,>28    49    40    14    1    1342373889    "button"    "OK"    0 
  1376.  
  1377. <:#240,9025><:f200,2Times New Roman,>90    49    40    14    2    1342373888    "button"    "Cancel"    0 
  1378.  
  1379. <:#240,9025><:f200,2Times New Roman,>36    5    75    10    1000    1342177280    "static"    "Anchor name:"    0 
  1380.  
  1381. <:#240,9025><:f200,2Times New Roman,>END DIALOG
  1382.  
  1383. <:f200,2Times New Roman,><:p<* >><:f><:f200,2Times New Roman,255,0,0>'Use Dialog to select text type<:f>
  1384.  
  1385. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1386.  
  1387. <:#240,9025><:f200,2Times New Roman,>FUNCTION IconTextStyle()
  1388.  
  1389. <:#240,9025><:f200,2Times New Roman,>
  1390.  
  1391. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "TextTypes")
  1392.  
  1393. <:#240,9025><:f200,2Times New Roman,>IF (box =0) OR (box=14)
  1394.  
  1395. <:#240,9025><:f200,2Times New Roman,> Exit Function
  1396.  
  1397. <:#240,9025><:f200,2Times New Roman,>ENDIF<:f>
  1398.  
  1399. <:#240,9025><:f200,2Times New Roman,>
  1400.  
  1401. <:#240,9025><:f200,2Times New Roman,>SWITCH box
  1402.  
  1403. <:#240,9025><:f200,2Times New Roman,>    CASE 1
  1404.  
  1405. <:#240,9025><:f200,2Times New Roman,>        VAR$="EM"
  1406.  
  1407. <:#240,9025><:f200,2Times New Roman,>    CASE 9
  1408.  
  1409. <:#240,9025><:f200,2Times New Roman,>        VAR$="STRONG"<:f>
  1410.  
  1411. <:#240,9025><:f200,2Times New Roman,>    CASE 3
  1412.  
  1413. <:#240,9025><:f200,2Times New Roman,>        VAR$="CODE"<:f>
  1414.  
  1415. <:#240,9025><:f200,2Times New Roman,>    CASE 4
  1416.  
  1417. <:#240,9025><:f200,2Times New Roman,>        VAR$="SAMP"<:f>
  1418.  
  1419. <:#240,9025><:f200,2Times New Roman,>    CASE 5
  1420.  
  1421. <:#240,9025><:f200,2Times New Roman,>        VAR$="KBD"<:f>
  1422.  
  1423. <:#240,9025><:f200,2Times New Roman,>    CASE 6
  1424.  
  1425. <:#240,9025><:f200,2Times New Roman,>        VAR$="VAR"<:f>
  1426.  
  1427. <:#240,9025><:f200,2Times New Roman,>    CASE 7
  1428.  
  1429. <:#240,9025><:f200,2Times New Roman,>        VAR$="DFN"<:f>
  1430.  
  1431. <:#240,9025><:f200,2Times New Roman,>    CASE 8
  1432.  
  1433. <:#240,9025><:f200,2Times New Roman,>        VAR$="CITE"<:f>
  1434.  
  1435. <:#240,9025><:f200,2Times New Roman,>ENDSWITCH
  1436.  
  1437. <:#240,9025><:f200,2Times New Roman,>CALL TextStyle(VAR$)<:f>
  1438.  
  1439. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1440.  
  1441. <:#240,9025><:f200,2Times New Roman,>
  1442.  
  1443. DIALOG    TextTypes
  1444.  
  1445. -2134376448    17    110    54    186    150    ""    ""    "Select Text Type"
  1446.  
  1447. 12    10    40    10    1    1342373888    "button"    "EM"    0 
  1448.  
  1449. 12    80    40    10    6    1342373888    "button"    "VAR"    0 
  1450.  
  1451. 12    24    40    10    2    1342373888    "button"    "STRONG"    0 
  1452.  
  1453. 12    38    40    10    3    1342373888    "button"    "CODE"    0 
  1454.  
  1455. 12    52    40    10    4    1342373888    "button"    "SAMP"    0 
  1456.  
  1457. 12    66    40    10    5    1342373888    "button"    "KBD"    0 
  1458.  
  1459. 12    94    40    10    7    1342373888    "button"    "DFN"    0 
  1460.  
  1461. 12    108    40    10    8    1342373888    "button"    "CITE"    0 
  1462.  
  1463. 54    10    92    10    1000    1342177280    "static"    "Emphasis, typically italic"    0 
  1464.  
  1465. 54    24    118    10    1001    1342177280    "static"    "Stronger emphasis, typically bold"    0 
  1466.  
  1467. 72    124    40    14    14    1342373888    "button"    "CANCEL"    0 
  1468.  
  1469. 54    38    118    10    1002    1342177280    "static"    "Example of code."    0 
  1470.  
  1471. 54    52    118    10    1003    1342177280    "static"    "A sequence of literal characters"    0 
  1472.  
  1473. 54    66    130    10    1004    1342177280    "static"    "Keys typed - in an instruction manual"    0 
  1474.  
  1475. <:#293,9025>54    80    118    10    1005    1342177280    "static"    "A variable name"    0 
  1476.  
  1477. 54    94    118    10    1006    1342177280    "static"    "The defining instance of a term"    0 
  1478.  
  1479. 54    108    118    10    1007    1342177280    "static"    "A citation, typically italic"    0 
  1480.  
  1481. END DIALOG
  1482.  
  1483.  
  1484.  
  1485. <:f200,2Times New Roman,>
  1486.  
  1487. <:f200,2Times New Roman,255,0,0>'Function to add a ADDRESS tag<:f>
  1488.  
  1489. <:f200,2Times New Roman,>'***************************************************************************************<:f>
  1490.  
  1491. <:f200,2Times New Roman,>FUNCTION AddAddress()
  1492.  
  1493. <:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1494.  
  1495. <:f200,2Times New Roman,>
  1496.  
  1497. <:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  1498.  
  1499. <:f200,2Times New Roman,>Text=CurShade$()
  1500.  
  1501. <:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  1502.  
  1503. <:f200,2Times New Roman,>ENDIF
  1504.  
  1505. <:f200,2Times New Roman,>Field="<<ADDRESS<;>"
  1506.  
  1507. <:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1508.  
  1509. <:f200,2Times New Roman,>Type(Field)
  1510.  
  1511. <:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  1512.  
  1513. <:f200,2Times New Roman,>Type(Text)
  1514.  
  1515. <:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1516.  
  1517. <:f200,2Times New Roman,>Type("<</ADDRESS<;>")
  1518.  
  1519. <:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  1520.  
  1521. <:f200,2Times New Roman,>
  1522.  
  1523. <:f200,2Times New Roman,>end function
  1524.  
  1525. <:f200,2Times New Roman,>
  1526.  
  1527. <:f200,2Times New Roman,><:p<* >>
  1528.  
  1529. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add an image<:f>
  1530.  
  1531. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1532.  
  1533. <:#240,9025><:f200,2Times New Roman,>
  1534.  
  1535. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddImage()
  1536.  
  1537. <:#240,9025><:f200,2Times New Roman,>DIM Previous(10)<:f>
  1538.  
  1539. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1540.  
  1541. <:#240,9025><:f200,2Times New Roman,>
  1542.  
  1543. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  1544.  
  1545. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10<:f>
  1546.  
  1547. <:#240,9025><:f200,2Times New Roman,> Previous(I) = GetGlobalArray$("PastImages",I)
  1548.  
  1549. <:#240,9025><:f200,2Times New Roman,> if Previous(I)<<<;>""  FillEdit(9000, Previous(I))
  1550.  
  1551. <:#240,9025><:f200,2Times New Roman,> endif
  1552.  
  1553. <:#240,9025><:f200,2Times New Roman,>next <:f>
  1554.  
  1555. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"BOTTOM")
  1556.  
  1557. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"MIDDLE")
  1558.  
  1559. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,"TOP")
  1560.  
  1561. <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
  1562.  
  1563. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1
  1564.  
  1565. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"LEFT")
  1566.  
  1567. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"RIGHT")
  1568.  
  1569. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"TEXTTOP")<:f>
  1570.  
  1571. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"ABSMIDDLE")
  1572.  
  1573. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"BASELINE")
  1574.  
  1575. <:#240,9025><:f200,2Times New Roman,>    FillEdit(9500,"ABSBOTTOM")<:f>
  1576.  
  1577. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgWIDTH")
  1578.  
  1579. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8002,TEMP$)<:f>
  1580.  
  1581. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgHEIGHT")
  1582.  
  1583. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8003,TEMP$)<:f>
  1584.  
  1585. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgBORDER")
  1586.  
  1587. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8004,TEMP$)<:f>
  1588.  
  1589. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgVSPACE")
  1590.  
  1591. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8005,TEMP$)<:f>
  1592.  
  1593. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("ImgHSPACE")
  1594.  
  1595. <:#240,9025><:f200,2Times New Roman,>    FillEdit(8006,TEMP$)<:f>
  1596.  
  1597. <:#240,9025><:f200,2Times New Roman,>    box=DialogBox("." "ADDIMAGE2")
  1598.  
  1599. <:#240,9025><:f200,2Times New Roman,>    IF box <<<;>1
  1600.  
  1601. <:#240,9025><:f200,2Times New Roman,>     Exit Function
  1602.  
  1603. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1604.  
  1605. <:#240,9025><:f200,2Times New Roman,>ELSE
  1606.  
  1607. <:#240,9025><:f200,2Times New Roman,>    box=DialogBox("." "ADDIMAGE1")
  1608.  
  1609. <:#240,9025><:f200,2Times New Roman,>    IF box <<<;>1
  1610.  
  1611. <:#240,9025><:f200,2Times New Roman,>     Exit Function
  1612.  
  1613. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  1614.  
  1615. <:#240,9025><:f200,2Times New Roman,>ENDIF<:f>
  1616.  
  1617. <:#240,9025><:f200,2Times New Roman,>URL$=GetDialogField$(8000)
  1618.  
  1619. <:#240,9025><:f200,2Times New Roman,>ALT$=GetDialogField$(8001)<:f>
  1620.  
  1621. <:#240,9025><:f200,2Times New Roman,>ALT2$=""
  1622.  
  1623. <:#240,9025><:f200,2Times New Roman,>IF ALT$<<<;>""    ALT2$="  ALT=""{ALT$}"""
  1624.  
  1625. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1626.  
  1627. <:#240,9025><:f200,2Times New Roman,>ALIGN$=GetDialogField$(9500)
  1628.  
  1629. <:#240,9025><:f200,2Times New Roman,>IF GetDialogField$(23)=1 ISMAP$=" ISMAP"
  1630.  
  1631. <:#240,9025><:f200,2Times New Roman,>ELSE ISMAP$=""
  1632.  
  1633. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1634.  
  1635. <:#240,9025><:f200,2Times New Roman,>Extra$=""
  1636.  
  1637. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
  1638.  
  1639. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8002)
  1640.  
  1641. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgWIDTH",TEMP$)
  1642.  
  1643. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}"""
  1644.  
  1645. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  1646.  
  1647. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8003)
  1648.  
  1649. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgHEIGHT",TEMP$)<:f>
  1650.  
  1651. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} HEIGHT=""{TEMP$}"""<:f>
  1652.  
  1653. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1654.  
  1655. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8004)
  1656.  
  1657. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgBORDER",TEMP$)<:f>
  1658.  
  1659. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} BORDER=""{TEMP$}"""
  1660.  
  1661. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1662.  
  1663. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8005)
  1664.  
  1665. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgVSPACE",TEMP$)<:f>
  1666.  
  1667. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} VSPACE=""{TEMP$}"""<:f>
  1668.  
  1669. <:#240,9025><:f200,2Times New Roman,>    E<:f><:f200,2Times New Roman,>NDIF<:f>
  1670.  
  1671. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetDialogField$(8006)
  1672.  
  1673. <:#240,9025><:f200,2Times New Roman,>    SetGlobalVar("ImgHSPACE",TEMP$)<:f>
  1674.  
  1675. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} HSPACE=""{TEMP$}"""<:f>
  1676.  
  1677. <:#240,9025><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>ENDIF
  1678.  
  1679. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1680.  
  1681. <:#240,9025><:f200,2Times New Roman,>Field="<<IMG SRC=""{URL$}""{ALT2$} ALIGN={ALIGN$}<:f><:f200,2Times New Roman,>{Extra$}<:f><:f200,2Times New Roman,>{ISMAP$}<:f><:f200,2Times New Roman,><;>"
  1682.  
  1683. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1684.  
  1685. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  1686.  
  1687. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  1688.  
  1689. <:#240,9025><:f200,2Times New Roman,>
  1690.  
  1691. <:#240,9025><:f200,2Times New Roman,>Match=0
  1692.  
  1693. <:#240,9025><:f200,2Times New Roman,>for I=1 to 10
  1694.  
  1695. <:#240,9025><:f200,2Times New Roman,>  if Previous(I)=URL$  Match=1
  1696.  
  1697. <:#240,9025><:f200,2Times New Roman,>  endif
  1698.  
  1699. <:#240,9025><:f200,2Times New Roman,>next
  1700.  
  1701. <:#240,9025><:f200,2Times New Roman,>if Match=0
  1702.  
  1703. <:#240,9025><:f200,2Times New Roman,>  for I=10 to 2 step -1
  1704.  
  1705. <:#240,9025><:f200,2Times New Roman,>    N=I - 1
  1706.  
  1707. <:#240,9025><:f200,2Times New Roman,>    SetGlobalArray("PastImages", I, Previous(N))
  1708.  
  1709. <:#240,9025><:f200,2Times New Roman,>  next
  1710.  
  1711. <:#240,9025><:f200,2Times New Roman,>  SetGlobalArray("PastImages", 1,  URL$)
  1712.  
  1713. <:#240,9025><:f200,2Times New Roman,>endif<:f>
  1714.  
  1715. <:#240,9025><:f200,2Times New Roman,>
  1716.  
  1717. <:#240,9025><:f200,2Times New Roman,>end function
  1718.  
  1719. <:#240,9025><:f200,2Times New Roman,>
  1720.  
  1721. <:#293,9025>DIALOG    ADDIMAGE1
  1722.  
  1723. <:#293,9025>-2134900736    10    66    34    262    176    ""    ""    "Add Image"
  1724.  
  1725. <:#586,9025>22    16    88    10    1000    1342177280    "static"    "Enter URL of image file:"    0 
  1726.  
  1727. <:#293,9025>174    92    64    40    9500    1344274434    "combobox"    ""    0 
  1728.  
  1729. <:#293,9025>138    92    36    10    1001    1342177280    "static"    "Alignment:"    0 
  1730.  
  1731. <:#293,9025>76    92    52    12    8001    1350631552    "edit"    ""    0 
  1732.  
  1733. <:#586,9025>22    90    50    28    1002    1342177280    "static"    "Text displayed on text based browsers:"    0 
  1734.  
  1735. <:#586,9025>22    120    100    10    23    1342242819    "button"    "Picture is a sensitive map"    0 
  1736.  
  1737. <:#293,9025>84    144    40    14    1    1342373889    "button"    "OK"    0 
  1738.  
  1739. <:#293,9025>140    144    40    14    2    1342373888    "button"    "Cancel"    0 
  1740.  
  1741. <:#293,9025>22    28    216    12    8000    1350631552    "edit"    ""    0 
  1742.  
  1743. <:#293,9025>22    42    216    40    9000    1352728577    "listbox"    ""    0 
  1744.  
  1745. <:#293,9025>END DIALOG
  1746.  
  1747. <:#293,9025>
  1748.  
  1749. <:#293,9025>DIALOG    ADDIMAGE2
  1750.  
  1751. <:#293,9025>-2134900736    20    68    38    262    204    ""    ""    "Add Image"
  1752.  
  1753. <:#586,9025>22    8    88    10    1000    1342177280    "static"    "Enter URL of image file:"    0 
  1754.  
  1755. <:#293,9025>144    76    64    40    9500    1344274434    "combobox"    ""    0 
  1756.  
  1757. <:#293,9025>108    78    36    10    1001    1342177280    "static"    "Alignment:"    0 
  1758.  
  1759. <:#293,9025>148    118    60    12    8001    1350631552    "edit"    ""    0 
  1760.  
  1761. <:#293,9025>108    116    36    18    1002    1342177280    "static"    "Alternative Text:"    0 
  1762.  
  1763. <:#586,9025>110    142    100    12    23    1342242819    "button"    "Picture is a sensitive map"    0 
  1764.  
  1765. <:#293,9025>84    172    40    14    1    1342373889    "button"    "OK"    0 
  1766.  
  1767. <:#293,9025>140    172    40    14    2    1342373888    "button"    "Cancel"    0 
  1768.  
  1769. <:#293,9025>22    18    214    12    8000    1350631552    "edit"    ""    0 
  1770.  
  1771. <:#293,9025>22    32    214    40    9000    1352728577    "listbox"    ""    0 
  1772.  
  1773. <:#293,9025>50    108    40    12    8002    1350631552    "edit"    ""    0 
  1774.  
  1775. <:#293,9025>50    124    40    12    8003    1350631552    "edit"    ""    0 
  1776.  
  1777. <:#293,9025>50    140    40    12    8004    1350631552    "edit"    ""    0 
  1778.  
  1779. <:#293,9025>50    76    40    12    8005    1350631552    "edit"    ""    0 
  1780.  
  1781. <:#293,9025>50    92    40    12    8006    1350631552    "edit"    ""    0 
  1782.  
  1783. <:#293,9025>22    110    22    10    1003    1342177280    "static"    "Width"    0 
  1784.  
  1785. <:#293,9025>22    126    22    10    1006    1342177280    "static"    "Height"    0 
  1786.  
  1787. <:#293,9025>22    142    24    10    1007    1342177280    "static"    "Border"    0 
  1788.  
  1789. <:#293,9025>22    78    26    10    1008    1342177280    "static"    "VSpace"    0 
  1790.  
  1791. <:#293,9025>22    94    26    10    1009    1342177280    "static"    "HSpace"    0 
  1792.  
  1793. <:#293,9025>END DIALOG
  1794.  
  1795. <:f,2Times New Roman,><:p<* >>
  1796.  
  1797. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Tag<:f>
  1798.  
  1799. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1800.  
  1801. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddTag(TagName)<:f>
  1802.  
  1803. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1804.  
  1805. <:#240,9025><:f200,2Times New Roman,>
  1806.  
  1807. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)
  1808.  
  1809. <:#240,9025><:f200,2Times New Roman,>Field="{TagName}<:f><:f200,2Times New Roman,>"
  1810.  
  1811. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  1812.  
  1813. <:#240,9025><:f200,2Times New Roman,>Type(Field)
  1814.  
  1815. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  1816.  
  1817. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  1818.  
  1819. <:#240,9025><:f200,2Times New Roman,>
  1820.  
  1821. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1822.  
  1823. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a Horizontal Rule<:f>
  1824.  
  1825. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1826.  
  1827. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddRule()<:f>
  1828.  
  1829. <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
  1830.  
  1831. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
  1832.  
  1833. <:#240,9025><:f200,2Times New Roman,>    Extra$=""
  1834.  
  1835. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("HRThick")
  1836.  
  1837. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} SIZE=""{TEMP$}"""
  1838.  
  1839. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  1840.  
  1841. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("HRWidth")
  1842.  
  1843. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} WIDTH=""{TEMP$}"""
  1844.  
  1845. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1846.  
  1847. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("HRAlign")
  1848.  
  1849. <:#240,9025><:f200,2Times New Roman,>    IF TEMP$<<<;>"" Extra$="{Extra$} ALIGN=""{TEMP$}"""
  1850.  
  1851. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1852.  
  1853. <:#240,9025><:f200,2Times New Roman,>    NoShade=GetGlobalVar$("HRShade")
  1854.  
  1855. <:#240,9025><:f200,2Times New Roman,>    IF NoShade=1 Extra$="{Extra$} NOSHADE"
  1856.  
  1857. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1858.  
  1859. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<HR{Extra$}<;><[>Enter]")
  1860.  
  1861. <:#240,9025><:f200,2Times New Roman,>ELSE
  1862.  
  1863. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<HR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
  1864.  
  1865. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1866.  
  1867. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1868.  
  1869. <:#240,9025><:f200,2Times New Roman,>
  1870.  
  1871. <:#293,9025>
  1872.  
  1873. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a line break<:f>
  1874.  
  1875. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1876.  
  1877. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddBreak()<:f>
  1878.  
  1879. <:#240,9025><:f200,2Times New Roman,>NetScape=GetGlobalVar$("HTMLNetScape")
  1880.  
  1881. <:#240,9025><:f200,2Times New Roman,>IF NetScape=1<:f>
  1882.  
  1883. <:#240,9025><:f200,2Times New Roman,>    Extra$=""
  1884.  
  1885. <:#240,9025><:f200,2Times New Roman,>    TEMP$=GetGlobalVar$("BRClear")
  1886.  
  1887. <:#240,9025><:f200,2Times New Roman,>    IF (TEMP$<<<;>"<<NULL<;>")AND(<:f><:f200,2Times New Roman,>TEMP$<<<;>"")<:f><:f200,2Times New Roman,> Extra$="{Extra$} CLEAR=""{TEMP$}"""
  1888.  
  1889. <:#240,9025><:f200,2Times New Roman,>    ENDIF<:f>
  1890.  
  1891. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<BR{Extra$}<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
  1892.  
  1893. <:#240,9025><:f200,2Times New Roman,>ELSE
  1894.  
  1895. <:#240,9025><:f200,2Times New Roman,>    AddTag("<<BR<;><:f><:f200,2Times New Roman,><[>Enter]<:f><:f200,2Times New Roman,>")<:f>
  1896.  
  1897. <:#240,9025><:f200,2Times New Roman,>ENDIF
  1898.  
  1899. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1900.  
  1901. <:#240,9025><:f200,2Times New Roman,>
  1902.  
  1903. <:#293,9025>
  1904.  
  1905. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a no break<:f>
  1906.  
  1907. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1908.  
  1909. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddNOBR()<:f>
  1910.  
  1911. <:#240,9025><:f200,2Times New Roman,>CALL TextStyle<:f200,2Times New Roman,>("NOBR<:f><:f200,2Times New Roman,>")<:f>
  1912.  
  1913. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1914.  
  1915. <:#240,9025><:f200,2Times New Roman,>
  1916.  
  1917. <:#293,9025>
  1918.  
  1919. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to add a word break<:f>
  1920.  
  1921. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1922.  
  1923. <:#240,9025><:f200,2Times New Roman,>
  1924.  
  1925. <:#240,9025><:f200,2Times New Roman,>FUNCTION AddWBR()<:f>
  1926.  
  1927. <:#240,9025><:f200,2Times New Roman,>AddTag("<<WBR<;><:f><:f200,2Times New Roman,>")<:f>
  1928.  
  1929. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1930.  
  1931. <:#240,9025><:f200,2Times New Roman,>
  1932.  
  1933. <:p<* >>
  1934.  
  1935. <:#240,9025><:f200,2Times New Roman,255,0,0>'Toggle between fixed to variable pitch text<:f>
  1936.  
  1937. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1938.  
  1939. <:#240,9025><:f200,2Times New Roman,>
  1940.  
  1941. <:#240,9025><:f200,2Times New Roman,>FUNCTION TextEffects( Effect )<:f>
  1942.  
  1943. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1944.  
  1945. <:#240,9025><:f200,2Times New Roman,>
  1946.  
  1947. <:#240,9025><:f200,2Times New Roman,>Effect=lcase$(Effect)
  1948.  
  1949. <:#240,9025><:f200,2Times New Roman,>SWITCH Effect
  1950.  
  1951. <:#240,9025><:f200,2Times New Roman,>    CASE "bold"
  1952.  
  1953. <:#240,9025><:f200,2Times New Roman,>        Bo<:f200,2Times New Roman,>ld()
  1954.  
  1955. <:#240,9025><:f200,2Times New Roman,>    CASE "italic"
  1956.  
  1957. <:#240,9025><:f200,2Times New Roman,>        Italic()
  1958.  
  1959. <:#240,9025><:f200,2Times New Roman,>    CASE "pitch"
  1960.  
  1961. <:#240,9025><:f200,2Times New Roman,>          GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
  1962.  
  1963. <:#240,9025><:f200,2Times New Roman,>          IF Name="Times New Roman" Name="Courier New"
  1964.  
  1965. <:#240,9025><:f200,2Times New Roman,>          ELSE <:f><:f200,2Times New Roman,> Name="Times New Roman" 
  1966.  
  1967. <:#240,9025><:f200,2Times New Roman,>        ENDIF
  1968.  
  1969. <:#240,9025><:f200,2Times New Roman,>        FontChange(Name, Family, Color, Size)<:f>
  1970.  
  1971. <:#240,9025><:f200,2Times New Roman,>    CASE "blink"
  1972.  
  1973. <:#240,9025><:f200,2Times New Roman,>        <:f><:f200,2Times New Roman,> CALL TextStyle("BLINK")<:f>
  1974.  
  1975. <:#240,9025><:f200,2Times New Roman,>ENDSWITCH
  1976.  
  1977. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  1978.  
  1979. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1980.  
  1981. <:#240,9025><:f200,2Times New Roman,255,0,0>
  1982.  
  1983. <:#240,9025><:f200,2Times New Roman,255,0,0>'Insert text styles<:f>
  1984.  
  1985. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  1986.  
  1987. <:#240,9025><:f200,2Times New Roman,>
  1988.  
  1989. <:#240,9025><:f200,2Times New Roman,>FUNCTION TextStyle( Style)<:f>
  1990.  
  1991. <:#240,9025><:f200,2Times New Roman,>DEFSTR Name, Color, Size, Family;
  1992.  
  1993. <:#240,9025><:f200,2Times New Roman,>
  1994.  
  1995. <:#240,9025><:f200,2Times New Roman,>GetCurFontInfo(&Name,&Color,&Size,&Family)<:f>
  1996.  
  1997. <:#240,9025><:f200,2Times New Roman,>Text=CurShade$()
  1998.  
  1999. <:#240,9025><:f200,2Times New Roman,>IF Text<<<;>"" Cut()
  2000.  
  2001. <:#240,9025><:f200,2Times New Roman,>ENDIF
  2002.  
  2003. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  2004.  
  2005. <:#240,9025><:f200,2Times New Roman,>Type("<<{Style}<;>")
  2006.  
  2007. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)
  2008.  
  2009. <:#240,9025><:f200,2Times New Roman,>Type(Text)
  2010.  
  2011. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, 255, 200)
  2012.  
  2013. <:#240,9025><:f200,2Times New Roman,>Type("<</{Style}<;>")<:f>
  2014.  
  2015. <:#240,9025><:f200,2Times New Roman,>FontChange(Name, Family, Color, Size)<:f>
  2016.  
  2017. <:#240,9025><:f200,2Times New Roman,>
  2018.  
  2019. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  2020.  
  2021. <:#240,9025><:f200,2Times New Roman,>
  2022.  
  2023. <:#240,9025><:f200,2Times New Roman,>
  2024.  
  2025. <:#240,9025><:f200,2Times New Roman,255,0,0>'Change paragraph style<:f>
  2026.  
  2027. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  2028.  
  2029. <:#240,9025><:f200,2Times New Roman,>FUNCTION ParaStyle()
  2030.  
  2031. <:#240,9025><:f200,2Times New Roman,>
  2032.  
  2033. <:#240,9025><:f200,2Times New Roman,>SelectStyle
  2034.  
  2035. <:#240,9025><:f200,2Times New Roman,>
  2036.  
  2037. <:f200,2Times New Roman,>END FUNCTION<:p<* >><:f><:f200,2Times New Roman,255,0,0>'Set Options<:f>
  2038.  
  2039. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  2040.  
  2041. <:#240,9025><:f200,2Times New Roman,>FUNCTION Options()
  2042.  
  2043. <:#240,9025><:f200,2Times New Roman,>
  2044.  
  2045. <:#240,9025><:f200,2Times New Roman,>Options=0
  2046.  
  2047. <:#240,9025><:f200,2Times New Roman,>TEMP$=<:f><:f200,2Times New Roman,>GetGlobalVar$("HRAlign<:f><:f200,2Times New Roman,>")<:f>
  2048.  
  2049. <:#240,9025><:f200,2Times New Roman,>FillEdit(9500,TEMP$)<:f><:f200,2Times New Roman,> 
  2050. <:f200,2Times New Roman,255,0,0>        'Fill Alignment List<:f>
  2051.  
  2052. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "LEFT" FillEdit(9500,"LEFT<:f><:f200,2Times New Roman,>") ENDIF<:f>
  2053.  
  2054. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "RIGHT" FillEdit(9500,"RIGHT<:f><:f200,2Times New Roman,>") ENDIF<:f>
  2055.  
  2056. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "CENTER" FillEdit(9500,"CENTER<:f><:f200,2Times New Roman,>") ENDIF<:f>
  2057.  
  2058. <:#240,9025><:f200,2Times New Roman,>
  2059.  
  2060. <:#240,9025><:f200,2Times New Roman,>TEMP$=<:f><:f200,2Times New Roman,>GetGlobalVar$("BRClear<:f><:f200,2Times New Roman,>")<:f>
  2061.  
  2062. <:#240,9025><:f200,2Times New Roman,>FillEdit(9501,TEMP$)<:f><:f200,2Times New Roman,>    <:f200,2Times New Roman,255,0,0>    'Fill Clear List<:f>
  2063.  
  2064. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "<<NULL<;>" FillEdit(9501,"<<NULL<;>") ENDIF<:f>
  2065.  
  2066. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "ALL" <:f><:f200,2Times New Roman,>FillEdit(9501,"ALL")<:f><:f200,2Times New Roman,> ENDIF<:f>
  2067.  
  2068. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "RIGHT" <:f><:f200,2Times New Roman,>FillEdit(9501,"RIGHT<:f><:f200,2Times New Roman,>")<:f><:f200,2Times New Roman,> ENDIF<:f>
  2069.  
  2070. <:#240,9025><:f200,2Times New Roman,>IF TEMP$<<<;> "LEFT" <:f><:f200,2Times New Roman,>FillEdit(9501,"LEFT")<:f><:f200,2Times New Roman,> ENDIF<:f>
  2071.  
  2072. <:#240,9025><:f200,2Times New Roman,>
  2073.  
  2074. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HTMLNetScape")
  2075.  
  2076. <:#240,9025><:f200,2Times New Roman,>FillEdit(23,TEMP$)<:f>
  2077.  
  2078. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRShade")
  2079.  
  2080. <:#240,9025><:f200,2Times New Roman,>FillEdit(25,TEMP$)<:f>
  2081.  
  2082. <:#240,9025><:f200,2Times New Roman,>'TEMP$=GetProfileString$(<:f><:f200,2Times New Roman,>"HTML", "HTMLBrowser", "AMIPRO.INI")<:f>
  2083.  
  2084. <:#240,9025><:f200,2Times New Roman,>'FillEdit(8000,TEMP$)<:f>
  2085.  
  2086. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRThick")
  2087.  
  2088. <:#240,9025><:f200,2Times New Roman,>FillEdit(8001,TEMP$)<:f>
  2089.  
  2090. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("HRWidth")
  2091.  
  2092. <:#240,9025><:f200,2Times New Roman,>FillEdit(8002,TEMP$)<:f>
  2093.  
  2094. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetGlobalVar$("ConvertDialog")
  2095.  
  2096. <:#240,9025><:f200,2Times New Roman,>FillEdit(20,TEMP$)<:f>
  2097.  
  2098. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2099.  
  2100. <:#240,9025><:f200,2Times New Roman,>box=DialogBox("." "OPTIONS")<:f>
  2101.  
  2102. <:#240,9025><:f200,2Times New Roman,>IF box<<<;>1
  2103.  
  2104. <:#240,9025><:f200,2Times New Roman,>     EXIT FUNCTION
  2105.  
  2106. <:#240,9025><:f200,2Times New Roman,>ENDIF
  2107.  
  2108. <:#240,9025><:f200,2Times New Roman,>
  2109.  
  2110. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9500)
  2111.  
  2112. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRAlign",TEMP$)
  2113.  
  2114. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(9501)
  2115.  
  2116. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("BRClear",TEMP$)<:f>
  2117.  
  2118. <:#240,9025><:f200,2Times New Roman,>'TEMP$=GetDialogField$(8000)
  2119.  
  2120. <:#240,9025><:f200,2Times New Roman,>'WriteProfileString("HTML","HTMLBrowser",TEMP$,"AMIPRO.INI")<:f>
  2121.  
  2122. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8001)
  2123.  
  2124. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRThick",TEMP$)<:f>
  2125.  
  2126. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(8002)
  2127.  
  2128. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRWidth",TEMP$)<:f>
  2129.  
  2130. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(25)
  2131.  
  2132. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HRShade",TEMP$)<:f>
  2133.  
  2134. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(23)
  2135.  
  2136. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("HTMLNetScape",TEMP$)<:f>
  2137.  
  2138. <:#240,9025><:f200,2Times New Roman,>TEMP$=GetDialogField$(20)
  2139.  
  2140. <:#240,9025><:f200,2Times New Roman,>SetGlobalVar("ConvertDialog",TEMP$)<:f>
  2141.  
  2142. <:#240,9025><:f200,2Times New Roman,>Options=1
  2143.  
  2144. <:#240,9025><:f200,2Times New Roman,>END FUNCTION
  2145.  
  2146. <:#240,9025><:f200,2Times New Roman,>
  2147.  
  2148. <:#240,9025><:f200,2Times New Roman,>
  2149.  
  2150. <:#240,9025><:f200,2Times New Roman,>
  2151.  
  2152. <:#278,9025>DIALOG    OPTIONS
  2153.  
  2154. <:#556,9025>-2134376448    15    94    48    254    140    ""    ""    "AmiWeb Options"
  2155.  
  2156. <:#556,9025>132    68    98    12    23    1342242819    "button"    "Use NetScape Extensions"    0 
  2157.  
  2158. <:#278,9025>8    0    116    90    24    1342308359    "button"    "<<HR<;> Options"    0 
  2159.  
  2160. <:#278,9025>20    20    40    10    1000    1342177280    "static"    "Thickness"    0 
  2161.  
  2162. <:#278,9025>20    36    40    10    1001    1342177280    "static"    "Width"    0 
  2163.  
  2164. <:#278,9025>20    52    40    10    1002    1342177280    "static"    "Alignment"    0 
  2165.  
  2166. <:#278,9025>20    66    50    12    25    1342242819    "button"    "No Shade"    0 
  2167.  
  2168. <:#278,9025>60    18    50    12    8001    1350631552    "edit"    ""    0 
  2169.  
  2170. <:#278,9025>60    34    50    12    8002    1350631552    "edit"    ""    0 
  2171.  
  2172. <:#278,9025>60    50    52    40    9500    1344274435    "combobox"    ""    0 
  2173.  
  2174. <:#278,9025>132    2    100    60    26    1342308359    "button"    "<<BR<;> Options"    0 
  2175.  
  2176. <:#278,9025>174    20    52    40    9501    1344274435    "combobox"    ""    0 
  2177.  
  2178. <:#278,9025>138    22    22    10    1003    1342177280    "static"    "Clear"    0 
  2179.  
  2180. <:#278,9025>78    108    40    14    1    1342373889    "button"    "OK"    0 
  2181.  
  2182. <:#278,9025>138    108    40    14    2    1342373888    "button"    "Cancel"    0 
  2183.  
  2184. <:#556,9025>132    80    114    18    20    1342242819    "button"    "Don't show Convert dialog box"    0 
  2185.  
  2186. <:#278,9025>END DIALOG
  2187.  
  2188. <:f200,2Times New Roman,><:p<* >>
  2189.  
  2190. <:#240,9025><:f200,2Times New Roman,255,0,0>'Function to run converter on file<:f>
  2191.  
  2192. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  2193.  
  2194. <:#240,9025><:f200,2Times New Roman,0,0,0>FUNCTION ConvertFile()
  2195.  
  2196. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2197.  
  2198. <:#240,9025><:f200,2Times New Roman,0,0,0>ConvertFile=0
  2199.  
  2200. <:#240,9025><:f200,2Times New Roman,0,0,0>DoDialog=0
  2201.  
  2202. <:#240,9025><:f200,2Times New Roman,0,0,0>FileName$=GetOpenFileName$()
  2203.  
  2204. <:#240,9025><:f200,2Times New Roman,0,0,0>IF FileName$="" 
  2205.  
  2206. <:#240,9025><:f200,2Times New Roman,0,0,0> IF SaveAs <<<;> 1 EXIT FUNCTION
  2207.  
  2208. <:#240,9025><:f200,2Times New Roman,0,0,0> ENDIF
  2209.  
  2210. <:#240,9025><:f200,2Times New Roman,0,0,0>ELSE Save()
  2211.  
  2212. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  2213.  
  2214. <:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination")
  2215.  
  2216. <:#240,9025><:f200,2Times New Roman,0,0,0>IF DestDir$=""
  2217.  
  2218. <:#240,9025><:f200,2Times New Roman,0,0,0>  DoDialog=1
  2219.  
  2220. <:#240,9025><:f200,2Times New Roman,0,0,0>  <:f200,2Times New Roman,0,0,0>DestDir$=GetGlobalVar$("HTMLDir")
  2221.  
  2222. <:#240,9025><:f200,2Times New Roman,0,0,0>  SetDocVar("Destination",DestDir$)
  2223.  
  2224. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  2225.  
  2226. <:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName")
  2227.  
  2228. <:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$=""
  2229.  
  2230. <:#240,9025><:f200,2Times New Roman,0,0,0>  DoDialog=1
  2231.  
  2232. <:#240,9025><:f200,2Times New Roman,0,0,0>  FileName$=GetOpenFileName$()
  2233.  
  2234. <:#240,9025><:f200,2Times New Roman,0,0,0>  Position=1
  2235.  
  2236. <:#240,9025><:f200,2Times New Roman,0,0,0>  Finished=0
  2237.  
  2238. <:#240,9025><:f200,2Times New Roman,0,0,0>  WHILE Finished=0
  2239.  
  2240. <:#240,9025><:f200,2Times New Roman,0,0,0>    LastPos=Position
  2241.  
  2242. <:#240,9025><:f200,2Times New Roman,0,0,0>    Position=Strchr(Position, FileName$, "\")+1
  2243.  
  2244. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF Position=0 Finished=1
  2245.  
  2246. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  2247.  
  2248. <:#240,9025><:f200,2Times New Roman,0,0,0>  WEND<:f>
  2249.  
  2250. <:#240,9025><:f200,2Times New Roman,0,0,0>  NameDot$=MID$(FileName$, LastPos, LEN(FileName$)-LastPos+1)<:f>
  2251.  
  2252. <:#240,9025><:f200,2Times New Roman,0,0,0>  Dot=Strchr(1,NameDot$,".")
  2253.  
  2254. <:#240,9025><:f200,2Times New Roman,0,0,0>  IF Dot<<<;>(-1) <:f200,2Times New Roman,0,0,0> Name$=LEFT$(NameDot$, 
  2255. <:f200,2Times New Roman,0,0,0>Dot+(-1)<:f200,2Times New Roman,0,0,0>)
  2256.  
  2257. <:#240,9025><:f200,2Times New Roman,0,0,0>  ELSE Name$=NameDot$
  2258.  
  2259. <:#240,9025><:f200,2Times New Roman,0,0,0>  ENDIF
  2260.  
  2261. <:#240,9025><:f200,2Times New Roman,0,0,0>  Name$="{Name$}.HTM"<:f>
  2262.  
  2263. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF<:f>
  2264.  
  2265. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2266.  
  2267. <:#240,9025><:f200,2Times New Roman,0,0,0>UseBreaks=GetProfileString$("HTML","UseBreaks","AMIPRO.INI")<:f>
  2268.  
  2269. <:#240,9025><:f200,2Times New Roman,0,0,0>NoDialog=GetGlobalVar$("ConvertDialog")
  2270.  
  2271. <:#240,9025><:f200,2Times New Roman,0,0,0>IF(NoDialog="") 
  2272.  
  2273. <:#240,9025><:f200,2Times New Roman,0,0,0>    NoDialog=FALSE
  2274.  
  2275. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  2276.  
  2277. <:#240,9025><:f200,2Times New Roman,0,0,0>IF (NoDialog=FALSE OR DoDialog=1)
  2278.  
  2279. <:#240,9025><:f200,2Times New Roman,0,0,0>    FillEdit(8001,Name$)
  2280.  
  2281. <:#240,9025><:f200,2Times New Roman,0,0,0>    FillEdit(8000,DestDir$)
  2282.  
  2283. <:#240,9025><:f200,2Times New Roman,0,0,0>    FillEdit(20,UseBreaks)
  2284.  
  2285. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF<:f200,2Times New Roman,0,0,0> DialogBox(".", "CONVERTFILE") <<<;> 1 EXIT FUNCTION
  2286.  
  2287. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  2288.  
  2289. <:#240,9025><:f200,2Times New Roman,0,0,0>    Name$=GetDialogField$(8001)
  2290.  
  2291. <:#240,9025><:f200,2Times New Roman,0,0,0>    DestDir$=GetDialogField$(8000)
  2292.  
  2293. <:#240,9025><:f200,2Times New Roman,0,0,0>    UseBreaks=<:f><:f200,2Times New Roman,0,0,0>GetDialogField$(20)<:f>
  2294.  
  2295. <:#240,9025><:f200,2Times New Roman,0,0,0>    WriteProfileString("HTML","UseBreaks",UseBreaks,"AMIPRO.INI")
  2296.  
  2297. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF RIGHT$(DestDir$,1) <<<;> "\" DestDir$="{DestDir$}\"
  2298.  
  2299. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  2300.  
  2301. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  2302.  
  2303. <:#240,9025><:f200,2Times New Roman,0,0,0>SetGlobalVar("HTMLDir",DestDir$)
  2304.  
  2305. <:#240,9025><:f200,2Times New Roman,0,0,0>SetDocVar("Destination",DestDir$)
  2306.  
  2307. <:#240,9025><:f200,2Times New Roman,0,0,0>SetDocVar("DestName",Name$)<:f>
  2308.  
  2309. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2310.  
  2311. <:#240,9025><:f200,2Times New Roman,0,0,0>RetVal=Exec("<++>wn_sm2ht.exe<-+>", "{FileName$} {DestDir$}{Name$}", 1)
  2312.  
  2313. <:#240,9025><:f200,2Times New Roman,0,0,0>IF RetVal<<=31
  2314.  
  2315. <:#240,9025><:f200,2Times New Roman,0,0,0>    SWITCH RetVal
  2316.  
  2317. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (0)
  2318.  
  2319. <:#480,9025><:f200,2Times New Roman,0,0,0>        Message("The system is out of memory or resources<:f><:f200,2Times New Roman,0,0,0>- close an application and try again","Error")
  2320.  
  2321. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (2)
  2322.  
  2323. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Executable file not found<:f><:f200,2Times New Roman,0,0,0>","Error")<:f>
  2324.  
  2325. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (3)
  2326.  
  2327. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Executable path not found<:f><:f200,2Times New Roman,0,0,0>","Error")<:f>
  2328.  
  2329. <:#240,9025><:f200,2Times New Roman,0,0,0>        CASE (11)
  2330.  
  2331. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Bad EXE file<:f><:f200,2Times New Roman,0,0,0>","Error")<:f>
  2332.  
  2333. <:#240,9025><:f200,2Times New Roman,0,0,0>        DEFAULT<:f>
  2334.  
  2335. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Unknown Error- {RetVal}","Error")
  2336.  
  2337. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDSWITCH
  2338.  
  2339. <:#240,9025><:f200,2Times New Roman,0,0,0>ENDIF
  2340.  
  2341. <:#240,9025><:f200,2Times New Roman,0,0,0>ConvertFile=1
  2342.  
  2343. <:f200,2Times New Roman,0,0,0>FileChanged(1,1)
  2344.  
  2345. <:f200,2Times New Roman,0,0,0>END FUNCTION<:f>
  2346.  
  2347. <:#245,9025><:f200,2NewCenturySchlbk,0,0,0>
  2348.  
  2349. <:#245,9025><:f200,2NewCenturySchlbk,0,0,0>
  2350.  
  2351. <:#278,9025>DIALOG    CONVERTFILE
  2352.  
  2353. <:#556,9025>-2134900736    7    108    68    232    94    ""    ""    "Convert to HTML"
  2354.  
  2355. <:#278,9025>16    46    124    12    8000    1350631552    "edit"    ""    0 
  2356.  
  2357. <:#556,9025>16    35    108    10    1000    1342177280    "static"    "Destination Directory:"    0 
  2358.  
  2359. <:#556,9025>15    6    98    10    1001    1342177280    "static"    "Destination Filename:"    0 
  2360.  
  2361. <:#278,9025>16    16    83    12    8001    1350631552    "edit"    ""    0 
  2362.  
  2363. <:#278,9025>175    38    40    14    2    1342373888    "button"    "Cancel"    0 
  2364.  
  2365. <:#278,9025>175    15    40    14    1    1342373889    "button"    "OK"    0 
  2366.  
  2367. <:#556,9025>16    72    100    12    20    1342242819    "button"    "Use <<BR<;>s for linebreaks"    0 
  2368.  
  2369. END DIALOG<:p<* >>
  2370.  
  2371. <:#240,9025><:f200,2Times New Roman,255,0,0>'Background setting<:f>
  2372.  
  2373. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  2374.  
  2375. <:#240,9025><:f200,2Times New Roman,0,0,0>FUNCTION BackGround()
  2376.  
  2377. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2378.  
  2379. <:#240,9025><:f200,2Times New Roman,0,0,0>BGCOLOR$=GetDocVar("BGCOLOR")<:f>
  2380.  
  2381. <:#240,9025><:f200,2Times New Roman,0,0,0>BODYTEXT$=GetDocVar("BODYTEXT<:f><:f200,2Times New Roman,0,0,0>")<:f>
  2382.  
  2383. <:#240,9025><:f200,2Times New Roman,0,0,0>BACKGROUND$=GetDocVar("BACKGROUND<:f><:f200,2Times New Roman,0,0,0>")<:f>
  2384.  
  2385. <:#240,9025><:f200,2Times New Roman,0,0,0>LINKCOL$=GetDocVar("LINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f>
  2386.  
  2387. <:#240,9025><:f200,2Times New Roman,0,0,0>VLINKCOL$=GetDocVar("VLINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f>
  2388.  
  2389. <:#240,9025><:f200,2Times New Roman,0,0,0>ALINKCOL$=GetDocVar("ALINKCOL<:f><:f200,2Times New Roman,0,0,0>")<:f>
  2390.  
  2391. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2392.  
  2393. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8001, BGCOLOR$)<:f>
  2394.  
  2395. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8002, BODYTEXT$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  2396.  
  2397. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8003, BACKGROUND$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  2398.  
  2399. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8004, LINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  2400.  
  2401. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8005, VLINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  2402.  
  2403. <:#240,9025><:f200,2Times New Roman,0,0,0>FillEdit(8006, ALINKCOL$<:f><:f200,2Times New Roman,0,0,0>)<:f>
  2404.  
  2405. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2406.  
  2407. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2408.  
  2409. <:#240,9025><:f200,2Times New Roman,0,0,0>IF<:f200,2Times New Roman,0,0,0> DialogBox(".", "ColourSettings") <<<;> 1 EXIT FUNCTION<:f>
  2410.  
  2411. <:#240,9025><:f200,2Times New Roman,>ENDIF
  2412.  
  2413. <:#240,9025><:f200,2Times New Roman,>
  2414.  
  2415. <:#240,9025><:f200,2Times New Roman,>BGCOLOR$ = GetDialogField$(8001)<:f>
  2416.  
  2417. <:#240,9025><:f200,2Times New Roman,>BODYTEXT$ = GetDialogField$(8002)<:f>
  2418.  
  2419. <:#240,9025><:f200,2Times New Roman,>BACKGROUND$ = GetDialogField$(8003)<:f>
  2420.  
  2421. <:#240,9025><:f200,2Times New Roman,>LINKCOL$ = GetDialogField$(8004)<:f>
  2422.  
  2423. <:#240,9025><:f200,2Times New Roman,>VLINKCOL$ = GetDialogField$(8005)<:f>
  2424.  
  2425. <:#240,9025><:f200,2Times New Roman,>ALINKCOL$ = GetDialogField$(8006)<:f>
  2426.  
  2427. <:#240,9025><:f200,2Times New Roman,>
  2428.  
  2429. <:#240,9025><:f200,2Times New Roman,>SetDocVar("BGCOLOR",BGCOLOR$)<:f>
  2430.  
  2431. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("BODYTEXT",BODYTEXT$)<:f>
  2432.  
  2433. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("BACKGROUND",BACKGROUND<:f><:f200,2Times New Roman,>$)<:f>
  2434.  
  2435. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("LINKCOL",LINKCOL<:f><:f200,2Times New Roman,>$)<:f>
  2436.  
  2437. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("VLINKCOL<:f><:f200,2Times New Roman,>",VLINKCOL<:f><:f200,2Times New Roman,>$)<:f>
  2438.  
  2439. <:#240,9025><:f200,2Times New Roman,>Set<:f><:f200,2Times New Roman,>DocVar<:f><:f200,2Times New Roman,>("ALINKCOL<:f><:f200,2Times New Roman,>",ALINKCOL<:f><:f200,2Times New Roman,>$)<:f>
  2440.  
  2441. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2442.  
  2443. <:#240,9025><:f200,2Times New Roman,0,0,0>FileChanged(1,1)<:f>
  2444.  
  2445. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2446.  
  2447. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  2448.  
  2449. <:#240,9025><:f200,2Times New Roman,255,0,0>
  2450.  
  2451. <:#278,9025>DIALOG    ColourSettings
  2452.  
  2453. <:#556,9025>-2134900736    14    74    56    212    122    ""    ""    "Colour Settings and Background Image"
  2454.  
  2455. <:#278,9025>50    8    50    12    8001    1350631552    "edit"    ""    0 
  2456.  
  2457. <:#278,9025>50    28    50    12    8002    1350631552    "edit"    ""    0 
  2458.  
  2459. <:#278,9025>8    74    194    12    8003    1350631552    "edit"    ""    0 
  2460.  
  2461. <:#278,9025>152    8    50    12    8004    1350631552    "edit"    ""    0 
  2462.  
  2463. <:#278,9025>152    28    50    12    8005    1350631552    "edit"    ""    0 
  2464.  
  2465. <:#278,9025>152    48    50    12    8006    1350631552    "edit"    ""    0 
  2466.  
  2467. <:#278,9025>58    96    40    14    1    1342373889    "button"    "OK"    0 
  2468.  
  2469. <:#556,9025>6    6    40    16    1000    1342177280    "static"    "Background Colour:"    0 
  2470.  
  2471. <:#278,9025>6    26    38    22    1001    1342177280    "static"    "Body Text Colour:"    0 
  2472.  
  2473. <:#278,9025>108    8    40    10    1002    1342177280    "static"    "Link Colour:"    0 
  2474.  
  2475. <:#556,9025>106    24    44    16    1003    1342177280    "static"    "Visited Link Colour:"    0 
  2476.  
  2477. <:#556,9025>106    46    42    16    1004    1342177280    "static"    "Active Link Colour:"    0 
  2478.  
  2479. <:#556,9025>8    64    80    8    1005    1342177280    "static"    "Background Image URL:"    0 
  2480.  
  2481. <:#278,9025>130    96    40    14    2    1342373888    "button"    "Cancel"    0 
  2482.  
  2483. <:#278,9025>END DIALOG
  2484.  
  2485. <:#240,9025><:f200,2Times New Roman,255,0,0>
  2486.  
  2487. <:#240,9025><:f200,2Times New Roman,255,0,0>
  2488.  
  2489. <:#240,9025><:f200,2Times New Roman,255,0,0>
  2490.  
  2491. <:#279,9025><:f,2TimesNewRomanPS,>
  2492.  
  2493. <:#240,9025><:f200,2Times New Roman,255,0,0>
  2494.  
  2495. <:#240,9025><:f200,2Times New Roman,0,0,0>
  2496.  
  2497. <:f200,2Times New Roman,255,0,0><:p<* >>
  2498.  
  2499. <:#240,9025><:f200,2Times New Roman,255,0,0>'Run browser using this file<:f>
  2500.  
  2501. <:#240,9025><:f200,2Times New Roman,>'***************************************************************************************<:f>
  2502.  
  2503. <:#240,9025><:f200,2Times New Roman,>FUNCTION TestDoc()
  2504.  
  2505. <:#240,9025><:f200,2Times New Roman,>
  2506.  
  2507. <:#240,9025><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")
  2508.  
  2509. <:#240,9025><:f200,2Times New Roman,>WHILE (Browser$="" )
  2510.  
  2511. <:#240,9025><:f200,2Times New Roman,>    Message("You need to setup a web browser under Options","Test Document")
  2512.  
  2513. <:#240,9025><:f200,2Times New Roman,>    IF CALL Options() <<<;> 1    <:f>
  2514.  
  2515. <:#240,9025><:f200,2Times New Roman,>        EXIT FUNCTION
  2516.  
  2517. <:#240,9025><:f200,2Times New Roman,>    ENDIF
  2518.  
  2519. <:#240,9025><:f200,2Times New Roman,>    <:f><:f200,2Times New Roman,>Browser$= GetProfileString$("HTML", "HTMLBrowser", "AMIPRO.INI")<:f>
  2520.  
  2521. <:#240,9025><:f200,2Times New Roman,>WEND
  2522.  
  2523. <:#240,9025><:f200,2Times New Roman,0,0,0>Name$=GetDocVar("DestName")<:f>
  2524.  
  2525. <:#240,9025><:f200,2Times New Roman,0,0,0>DestDir$=GetDocVar("Destination")<:f>
  2526.  
  2527. <:#240,9025><:f200,2Times New Roman,0,0,0>IF Name$="" OR DestDir$=""
  2528.  
  2529. <:#240,9025><:f200,2Times New Roman,0,0,0>    IF CALL ConvertFile() <<<;> 1
  2530.  
  2531. <:#240,9025><:f200,2Times New Roman,0,0,0>        EXIT FUNCTION
  2532.  
  2533. <:#240,9025><:f200,2Times New Roman,0,0,0>    ENDIF
  2534.  
  2535. <:#240,9025><:f200,2Times New Roman,0,0,0>    Name$=GetDocVar("DestName")<:f>
  2536.  
  2537. <:#240,9025><:f200,2Times New Roman,0,0,0>    DestDir$=GetDocVar("Destination")<:f>
  2538.  
  2539. <:#240,9025><:f200,2Times New Roman,>ENDIF
  2540.  
  2541. <:#240,9025><:f200,2Times New Roman,0,0,0>        Message("Blah <:f><:f200,2Times New Roman,>{Browser$}{DestDir$}{Name$}<:f><:f200,2Times New Roman,0,0,0>")<:f>
  2542.  
  2543. <:#240,9025><:f200,2Times New Roman,>Exec("{Browser$}","{DestDir$}{Name$}",1)
  2544.  
  2545. <:#240,9025><:f200,2Times New Roman,>END FUNCTION<:f>
  2546.  
  2547. >
  2548.  
  2549. [Embedded]
  2550. 00083797
  2551.